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SPECTRUM128 
EL SUMMUM 


Spectrum, como líder, marca un nuevo hito en 
la historia de los ordenadores familiares. 

El Spectrum 128. 

Gran capacidad de memoria. Teclado y 
mensajes en castellano, teclado independiente 
para operaciones numéricas y de tratamiento 
de textos... 

Sinclair e Investrónica han desarrollado una 
auténtica novedad, En ningún lugar del mundo, 


salvo en los Distribuidores Exclusivos de Investrónica, 
podrás encontrar el nuevo Spectrum 128. 

Sé el primero en tener lo último. 

SPECTRUM 128. NOVISSIMUS 
investrónica 


Tomás Bretón, 62 . Camp, 30 . 

Tfel. (91)467 82 10. Ttels, (93) 211 26 58 - 211 27 54, 
Itelex 23399IYCQ E, 06022 Barcelona 
28045 Madrid 


• DISTRIBUIDOR 






































_ SUMARIO _ 

AÑO II - N° 21 - MAYO 1986 



ART STUDIO, 
CUANDO EL 
SPECTRUM SE 
HACE ARTE 


Análisis del más potente 
programa de dibujo desarrollado 
basta el momento. Ventanas, 
iconos, menús descendentes y 
ratón trabajando en el Spectrum. 


COMPRESOR DE 
PANTALLAS 



Ponga a dieta sus pantallas: con 
esta rutina se comerán mucha 
menos memoria, pudiéndose 
almacenar simultánemente más 
de cinco en un Spectrum 48 K. 


SWEEVO’S WORLD, 
GUIA DEL HACKER 



Manuel Arana continúa 
desmenuzando programas. Le ha 
llegado el turno al último juego 
de Gargoyle Gantes, Sweedo’s 
World. Descubrimos todos sus 
secretos. 



F*inl 



NOTICIAS 


Amstrad Consumer Electron ios 
compra Sinclair Research... ¡y 
nosotros con estos pelos! 



FACTORES PRIMOS 


Juan Ignacio Perca, ganador del 
concurso matemático «El número 
más largo», comenta a fondo su 
programa. 


1 SUPLEMENTO QL 


¿Quién es quién en el mundo del 

QL? 

Una exhaustiva relación de los 
fabricantess, distribuidores, 
software y hardware para el 
ordenador más polémico de 
Sinclair. 

Los Bugs del Sistema Operativo 

Ningún ordenador está libre de 
errores. El QL tampoco, pero si 
los conoce podrá evitarlos. 

Sistemas Operativos IVlullilarea 




APRENDIENDO 

LENGUAJE 

MÁQUINA 


Terminamos el análisis del juego 
de instrucciones del Z-80 y 
ofrecemos una completa tabla con 
sus características. 



PROGRAMAS 


Química, física y juegos están 
representados en la sección de 
programas de este mes: Sistema 
periódico. Dinámica y 
Mastermínd, 


































SERVICIO DE EJEMPLARES ATRASADOS 



Para hacer su pedido, rellene este cupón HOY MISMO 
y envíelo a: 

üiHfttlfliÉWEil Bravo Murillo. 377 
WW tP3 |W?^M UU Tel. 733 96 62 - 28020 MADRID 

Ruego toe envíen tos siguientes ejemplares atrasados de TODOS’ 

PECTRUM . .al precio de 300 pts 

El importe lo abonaré 

O POR CHEQUE □ CONTRA REEMBOLSO □ CON Mi TARJETA DE 
CREDITO □ AMERICAN EXPRESS O VISA □ INTEPBANK 

Numero de mi tarjeta 

Fecha de caducidad .. . . Frrma 

NOMBRE . .... ._ 

DIRECCION. 

CIUDAD.... C. P. .. 

PROVINCIA 


Complete su colección de 

üMtespectruti 

A continuación le resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


Nuri. 2 - 300 ptas. 

Gráficos profesionales/Desplaza- 
miento pixel a pixel/Utilización de ru- 
tinas/Gonstrucción del interface 
centronics/Programas de utilidad 
para microdrive/Rutina reset en códi¬ 
go máquina/Análisis del editor de 
textos Tasword/lnterfaces para im- 
presoras/Programas. 

Núm. 3 - 300 ptas. 

Novedades sonimag'84/AmplÍando 
el Basic/Programas para ordenar 
programas/Gráfíccs con el VU-3D/ 
Lenguaje Fortti/Archivos en micro- 
drive/Programación de un interface 
de ímpresora/Programas. 

Núm. 4 - 300 ptas* 

De profesión: programador/Consola 
para el Spectrum/Comparación có¬ 
digo máquina-Basic/Anáfisis progra¬ 
ma contabilidad/Calendario/Pascal/ 
Programas. 

Núm. 5 - 300 ptas* 

Floppvs para Spectrum/Diseño asis¬ 
tido por ordenador/64 Caracteres 
por línea/Juego de la vida/Pascal/Asi 
hacemos las portadas/Control de 
oval uaciones/Progra mas. 

Núm. 6 - 300 ptas. 

Representación de funciones/!odos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: torgugas para todos/ Interrup¬ 
ciones del Z-80/Programas 

Núm. 7 - 300 ptas„ 

Del 48 al PLUS paso a paso/¿Pfotter 
para Spectrum?/Juegos/Libros de 
código máquina/Lápiz óptico. Pro¬ 
gramación del monfaje/EI LOGO en 
la escuela/Pascal/Fioppys para 
Spectrum/Prog ramas 

Núm 8 - 300 ptas. 

Amplia tu memoria. .. a 48 K/Arquitec- 
tura: análisis del PREYME/Juegos/ 
FORTH Nociones básicas/Una clave, 
please/QL Magazine. Ultimas nove¬ 
dades, análisis de software, Lengua¬ 
jes/Aula informática con Spectrum/ 
Programas. 

Núm 9 - 300 ptas. 

Spectrum parlanchín/Juegos/Aula 
informática con Spectrum/Análisis: 
Comercial 4/Pascal/Periféricos: Wa- 
fadrive/QL Magazine: EASELIo mejor 
de PSIQN. Música con QL/Desplaza- 
miento Pixel a Pixel, aportación de 
lectores/Programas/Programer II. 

Núm* 10 - 300 pías. 

Discos: invesdisc 200/Juegos/Dos 
prog ramas si multáneos/Protección 
del software/Conozca extremadura, 
consulte a su ordenador/Desensam- 
blador Z-80/Sofware educativo/QL 
Magazine: novedades informal, Hoja 
de cálculo, Ajedrez/Construya su 
propio Joystick/Pascal/prog ramas. 


DISPONEMOS 
DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuademación) 


Núm. 11 - 300 ptas. 

Actualidad/La otra cara del LOGO/ 
Juegos/El Spectrum habla castalia- 
no/SOFTAID ayuda para Etiopia/ 
S.Q.S. aqui e! Spectrum/Oibujar con 
lápiz óptlco/QL Magazine: Procesa¬ 
dor de textos. Teclas de función pro- 
gramables/Programas. 

Núm, 12 - 300 ptas, 

Actualidad/lnteligencia artlficial/Lá- 
piz óptico dk'TRGNtCS/Juegos/Aná- 
■ iisis/Bingo/Z-80 PlO/Código máqui- 
na/Análisis: MASTEBFILE/Progra- 

mas, 

Num. 13 - 300 ptas. 

Actualidad/Discos: Discovery 1/Jue- 
gos/lnteligencia artificial/Un nuevo 
sistema operativo/QL Magazine: Ar¬ 
chive, Cartridge doctor Aplicaciones 
comerciales/Cúdigo máquina/Pro- 
gramas. 

Núm. 14 - 300 ptas. 

Actualidad, Spectrum 128/Cáiculo 
de estructuras para ingenieros y ar- 
quitectos/HELP utilidades en micro- 
drive/Juegos/EI microdrive ese des- 
conocido/Gódigo máquína/OL Ma¬ 
gazine: GRAPHIC GL. Juegos. Discos 
de720K/Un nuevo operativo/Progra- 
mas 

Núm. 15 - 300 ptas. 

Actualidad/Spectrum 128/Un nuevo 
operativo/Circuíos redondos/Jue¬ 
gos/Utilidades: BETA-BASIC/GL Ma¬ 
gazine: Introducción al SUPER BA¬ 
SIC Nuevas utilidades/Hardware; 
Puertas lógicas/Código máquina/ 
Programas. 

Núm* 16 - 300 ptas. 

Actualldad/Cinco horas con 
SCfíEENS/Hardware práctico/Cál- 
culos de infinita precisión/juegos/ 
Un nuevo operativo/QL Magazine: 
Gráficos en SUPER-BASIC. Dibujan¬ 
do con ratón. Archivos con Archive 
Programa/La última batalla, Juego 
estratégico. 

Núm. 17 - 300 ptas. 

Actuaíidad/Gráficos interactivos/ 
Juegos/Código máquina/Un nuevo 
operativo/Trucos de programación/ 
QL Magazine: Radiografía del QL 
Gráficos en SUPER-BASIC/Libros/ 
Programmas. 

Núm. 18 - 300 ptas. 

Actuaüdad/lntroduccíón al G/Libros/ 
Juegos/De cinta a microcinta/Visión 
panorámica de los microprocesado¬ 
res más comunes/GL Magazine: Co- 
py de grises Microprocesadores 
68000, una familia numerosa/Curio- 
seando en la ROM/Programas. 
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Si deseas colaborar en TOOOSPECTRUM 
remite tus artículos o programas a Bravo 
Murillo, 377 5, & A. 28020 Madrid Lüs 
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cassette y los artículos mecanografiados. 

A efectos de remuneración, se analiza cada 
colaboración aisladamente, estudiando su 
complejidad y calidad. 


¿ADIOS AL QL? 


La compra de Sinclair 
Research, Ltd. por Ams- 
trad Consumer Electro¬ 
nics cierra un largo año de 
especulaciones sobre el 
futuro económico de esta 
empresa. Cuando la situa¬ 
ción parecía mejorar para 
Sinclair, que incluso pre¬ 
sentó un nuevo ordena¬ 
dor —el Spectrum 128— y 
había pagado diez de los 
quince millones de libras que adeudaba, Sir Clive acep¬ 
tó la oferta de Amstrad, cediendo los derechos de fabri¬ 
cación, distribución y venta de sus productos a su máxi¬ 
mo rival. 

De las primeras declaraciones de Alan Sugar, presi¬ 
dente de Amstrad se desprende que se potenciará el 
Spectrum, lanzándose en breve un modelo de 128 K con 
cassette incorporado y probablemente con un port de 
joystick. 

El QL ha salido mucho peor parado del acuerdo en¬ 
tre ambas empresas. Alan Sugar afirmó: «No veo mu¬ 
cho futuro en él. En su forma actual ha muerto». El pre¬ 
sidente de Amstrad, que debe ver más futuro en el Z-80 
y el CP/M, dejó abierto un pequeño resquicio a la espe¬ 
ranza al asegurar que sus ingenieros analizarían a fondo 
la máquina y quizás la resucitasen añadiéndole una uni¬ 
dad de discos de tres pulgadas y suprimiendo los micro- 
drives. 

Entre tanto, Amstrad se ha comprometido a mante¬ 
ner durante siete años un stock de piezas que garantice 
la asistencia técnica y los repuestos. 

Pero sea cual sea el futuro del QL, mientras sus 
usuarios manifiesten el mismo interés y dinamismo de 
siempre continuaremos apoyándoles desde estas pági¬ 
nas y ofreciéndoles nuestro habitual suplemento QL. 

TOOOSPECTRUM 






















STUDIO 


CUANDO EL SPECTRUM 
SE HACE ARTE 


H asta que llegó el Macintosh 
de APPLE, las ventanas, 
iconos, ratones y menús 
concatenados (conocidos colec¬ 
tivamente como WIMP’s) eran 
un lujo sólo al alcance de los 
compradores más solventes del 
mercado de ordenadores. Sin 
embargo, la popularización de 
este sencillo entorno de manejo 
ha hecho que la industria de soft¬ 
ware inunde el mercado con sis¬ 
temas orientados hacia el WIMP 
para micros tan diversos como el 
IBM PC y el SPECTRUM. 

RAINBIRD, una filial de BT, 
ha incluido en su repertorio un 
excelente paquete de gráficos ti¬ 
po WIMP llamado The Art Stu¬ 
dio, de Oxford Computer Publis- 
hing. En la publicidad de este 
programa se asegura que trans¬ 
forma el SPECTRUM en un Ma¬ 


cintosh, lo que resulta algo exa¬ 
gerado pero no demasiado aleja¬ 
do de la realidad. 

Hay una voluntad consciente 
en su presentación que sugiere 
que los diseñadores se sintieron 
obligados a emular el Macpaint 
de APPLE. Sea verdad o no, el 
Art Studio, por 3.300 ptas. (pre¬ 
cio aproximado al cambio de 
14.95 libras), está tan cerca del 
Macintosh como es posible en 
un SPECTRUM, y supone un 
paso adelante respecto de los 
otros paquetes de diseño. 

Desgraciadamente, el Art Stu¬ 
dio incorpora una bestia negra: el 
LENSLOK. Para aquellos de vo¬ 
sotros que aún no os hayáis en¬ 
frentado con este verdadero reto 
a la paciencia, LENSLOK es un 
nuevo sistema de protección an- 
ti-pirata. En lugar de colores, có¬ 



digos y contreseñas, este inge¬ 
nioso sistema se utiliza alinean¬ 
do debedamente una lente espe¬ 
cial que permite al usuario leer 
un número y así introducir co¬ 
rrectamente el programa. A me¬ 
nudo son necesarios varios in¬ 
tentos para conseguirlo. 

La recompensa por superar 
con éxito el LENSLOK es una 
pantalla blanca con un menú en 
forma de barra de color azul, dis¬ 
puesto en la parte superior y un 
cursor en forma de flecha en el 








































centro. Hay tres métodos de ma¬ 
nipular el cursor: las cuatro te¬ 
clas de flechas en el teclado del 
SPECTRUM, el joystick o el ra¬ 
tón AMX (de Advanced Memory 
Systems). 

Es preferible utilizar el ratón, 
porque, al contrario de los otros 
dos, permite dibujar las curvas 
con exactitud, describiendo un 
simple giro con la mano. En cam¬ 
bio, las curvas dibujadas con te¬ 
clas o joystick tienden a ser irre¬ 
gulares y toscas. 


DISEÑO 


La característica más deliciosa 
del Art Studioesel uso de mentís 
concatenados, un fenómeno re¬ 
lativamente nuevo en el SPEC¬ 
TRUM. Un menú de este tipo es 
una lista de funciones conteni¬ 
das bajo una misma cabecera. 
Por ejemplo, ¡a barra del menú 
en la parte superior de la pantalla 
que aparece en la Art Studio 
contiene sólo 11 opciones. Sin 


embargo, al seleccionar una de 
ellas con el cursor, aparece en 
pantalla una ventana llena de op¬ 
ciones. 

Velocidad y flexibilidad son 
las dos mejores virtudes de los 
WIMP’s. Además, para aque¬ 
llos que sufren de «teclado-fo- 
bia», la posibilidad de seleccio¬ 
nar las opciones sin tener que 
pulsar teclas es una bendición. 
Esta sencillez de manejo se man¬ 
tiene a lo largo del programa. 
Ilustraremos esto de una forma 






































































más ciara examinando los conte¬ 
nidos de los menús concatena¬ 
dos. 

MENUS 

Cuando la mayoría de la gente 
se encuentra con un paquete de 
diseño, lo que quiere hacer es di¬ 
bujar cosas. La primera puerta a 
la que llamar es, por tanto, el te¬ 
ma de dibujo, ya que contiene los 
útiles básicos para dibujar. Com¬ 
ponen este menú, un lápiz, un 
spray y una brocha, a la vez que 
un editor de brochas y una orden 
llamada INVERSE. “ 

Si seleccionamos la opción lá¬ 
piz, se accede a otro submenú 
que contiene un muestrario de 
16 yipos de lápices. Algunos son 
para el trabajo con líneas finas, 
mientras que otros son más ade¬ 
cuados para sombrear o para dar 
ciertos efectos especiales. Cuan¬ 
do el comando IN VERSE se en¬ 
cuentra en posición ON, el lápiz 
se transforma en una goma de 
borrar, con una posibilidad de se¬ 
lección de tamaños tan amplia 
com las opciones de los lápices. 

El bote de spray es similar al 
lápiz, excepto que sus 8 opciones 
se refieren más a la densidad que 
a la forma. Cuando se usa, este 
spray reproduce fiélmente el 
efecto de los verdaderos, incluso 
hasta el extremo de que si se 
mantiene el spray pulsado du¬ 
rante mucho tiempo la densidad 
del trazo aumenta. Se puede uti¬ 
lizar esta opción en conjunción 
con el ratón para perfeccionar el 
estilo, antes de intentar hacer 
cuadros para el comedor. En ter¬ 
cer lugar esta la brocha. De nue¬ 
vo encontramos 16 opciones en¬ 
tre las que elegir, aunque esco¬ 
giendo el editor de brochas, es 
posible cambiar una o todas ellas 
para acoplarlas a las necesidades 
de cada momento. 

Para hacer más fácil la vida del 
artista, eJ Art Studio tiene un me¬ 
nú de Ampliación, que contiene 
funciones orientadas a ampliar 
una parte de la pantalla dos, cuatro 
y hasta ocho veces su tamaño nor¬ 


mal. Esta es una gran ventaja pa¬ 
ra los detallistas, ya que permite 
realizar cambios pixel a píxel. 

Las formas y estructuras son 
las principales preocupaciones 
del dibujante, la precisión y !a 
claridad lo son del diseñador téc¬ 
nico. Para acomodarse a tales ne¬ 
cesidades el Art Studio tiene un 
menú de formas que contiene 
utilidades que permiten qué de¬ 
terminadas formas geométricas 
sean dibujadas simple y rápida¬ 
mente. 

Circuios, rectángulos, triángu- 
los y rayos pueden ser trazados 
sin necesidad de tener que recu¬ 
rrir a las teclas del SPECTRUM. 
Los círculos son especialmente 
fáciles de dibujar, usando una 
técnica muy similar a la utilizada 
en otros sistemas más costosos; 
primero, el centro se define pre¬ 
sionando el ratón (tecla o joys- 
tick), y después la circunferencia 
se crea escogiendo un punto de 
ésta. El menú de formas permite 
ampliar y reducir las figuras has¬ 
ta el tamaño deseado, Esto es es¬ 
pecialmente útil para experi¬ 
mentar con los tamaños de los 
círculos. Para formas con lados 
rectos, hay dos rápida funciones 
que aseguran perfectas líneas 
verticales y horizontales. 

Cuando los programadores se 
decidieron a crear un paquete de 
diseño gráfico que se pareciera al 
Macpaint, les interesó especial¬ 
mente emular sus opciones de 
coloreado y rellenado de formas 
cerradas. Por tanto, no es sor¬ 
prendente que dichas opciones 
del Art Studio, sean casi idénti¬ 
cas a las del Macpaint. Para asi¬ 
milar lo que en el APPLE se lla¬ 
man texturas o calidades sin 
mezclarlo con otros tipos de 
sombreado, el Art Studio tiene 3 
formas de rellenado y un editor 
texturas. 

Por supuesto, todas las funcio¬ 
nes de rellenado se encuentran 
en un menú de llenado bastante 
completo. Seleccionando el re¬ 
llenado sólido o liso, el primero 
del menú, se transforma la flecha 
del cursor en un rodillo de pintu¬ 



ra, el cual, cuando es colocado en 
una figura cerrada, la rellena con 
el color de tinta que se esté usan¬ 
do, de forma muy rápida. 

Si todo te parece familiar en el 
rellenado de color liso, espera a 
entrar en el relleno a base de en¬ 
tramados. Escondidas bajo esta 
opción se encuentran 32 diferen¬ 
tes tramas al estilo del Macpaint 
(64 si también contamos las in- 
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versas), cada una de estas puede 
ser aplicada a cualquier superfi¬ 
cie en la pantalla. La aplicación 
de tales entramados se realiza en 
dos fases: primero, se llena la su¬ 
perficie con el color de la tinta y 
luego el entramado se estampa 
sobre todos los pixel afectados. 

Aunque pudiera parecer lento, 
el uso de tramas es extremada¬ 
mente rápido, al igual que la op¬ 


ción deshacer (undo), que per¬ 
mite que el último comando eje¬ 
cutado pueda ser modificado. Si 
por ejemplo, se ha sombreado 
una superficie y no quedamos 
muy satisfechos con el resultado, 
este comando nos lleva de nuevo 
al estado original. Hay también 
una textura de cambio de color 
(wash) en el menú de rellenado 
que realmente no es tal rellenado 


en el más estricto sentido de la 
palabra. En vez de colorear o 
sombrear áreas o superficies va¬ 
cías, esta opción permite aplicar 
un modelo sólo a determinados 
pixels a los que se les ha cambia¬ 
do el color de tinta. Hay muchas 
aplicaciones para la opción 
«wash», pero una de las más efec¬ 
tivas, es el sombreado de un tex¬ 
to. Se puede remarcar una parte 
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Los Joystichs más 


QUICKSHOTIV (3 en 1) 
Con mando de carreras 




QUICKSHOT IV 
(3 en 1) Con mando 
para deporte 


A 

QUICKSHOT I 


QUICKSHOT IMSX 



QUICKSHOT Vil - Portátil 



QUICKSHOT IX H 
Preciso y sensible 

Los QUICKSHOT comercializados por SVI-España, S. A. son los únicos que tienen la GARANTIA OFICIAL SVI. 
















vendidos del mundo. 


QUICKSHOTIIMSX 
Con outodisparo 


“3 




QUICKSHOT IV (3 en 1) 
Con mando para combate 


QUICKSHOT II 
Con outodisparo 


QUICKSHOT Vil MSX 
Portátil 


Importador exclusivo SVI-España. 
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de un texto tiñiéndolo con 
cualquiera de las diferentes tra¬ 
mas. 

El sombreado en blanco y ne¬ 
gro puede producir interesantes 
efectos de penumbra si se usa co¬ 
rrectamente. Por otro lado, para 
diseños más vistosos, se pueden 
cambiar los colores de acuerdo 
con un menú de atributos. Aquí 
es donde encontramos todos los 
colores normales del Spectrum, 
accediendo a ellos de forma na¬ 
tural desde el teclado. 

Al igual que la mayoría de los 
paquetes gráíleos para el SPEC¬ 
TRUM el Art Studio está afecta¬ 
do por las pobres posibilidades 
de manejo del color en el apara¬ 
to. Aparte de presentar un aspec¬ 
to pálido generalmente, los colo¬ 
res «chocan» entre sí, producien¬ 
do feos e involuntarios cuadra¬ 
dos en la pantalla. La causa de es¬ 
to es la incapacidad del ordena¬ 
dor para manejar más de dos co¬ 
lores (uno para el papel y otro pa¬ 
ra la tinta) por carácter. Pueden 
resultar remedios útiles, reducir 
el dibujo a dos colores o usar una 
gran extensión del mismo color, 
haciendo que sea imposible que 
dos colores de pape! o tinta en¬ 
tren en contacto. La primera vez 
que se usa el Maepaint, resulta 
asombrosa la forma en que los 
dibujos pueden quedar enmarca¬ 
dos y luego ser colocados en otra 
parle de la pantalla. Para muchos 
esto sólo es posible gracias a la 
presentación del mapa de bits del 
Macintosh. Por esto, nuestra sor¬ 
presa fue mayúscula cuando vi¬ 
mos el Art Studio realizando la 
misma tarea. La capacidad para 
realizar tales operaciones consti¬ 
tuye uno de los rasgos más nota¬ 
bles del Art Studio. Pero esto es 
sólo una parte de lo que se puede 
conseguir dentro del menú de 
ventanas. 

Las funciones de «cortar y pe¬ 
gar» y «cortar, eliminar y pegar» 
son similares pero con útiles di¬ 
ferencias. La primera copia el 
contenido de una ventana y lue¬ 
go lo coloca donde queramos, 
dejando intacto el modelo origi¬ 


nal, mientras que la segunda, lo 
borra. Se pueden hacer varias co¬ 
pias de una ventana, escogiendo 
la opción múltiple del citado me¬ 
nú de ventanas. 

Las ventanas son flexibles has¬ 
ta el punto de cambiar de tama¬ 
ño. Todas las ventanas, sin im¬ 
portar como sean de grandes o 
pequeñas, pueden ser modifica¬ 
das de tamaño. Pueden ser au¬ 
mentadas, reducidas, ensancha¬ 
das o estrechadas. La modifica¬ 
ción tiene lugar en dos fases, al 
igual que la opción de entrama¬ 


do. Primero, la ventana se modi- j 
fica en dirección vertical en un 
buffer interno, y después en di¬ 
rección horizontal en pantalla. 

Esto va seguido de la ejecución 
en pantalla del primer paso. 
Cuando se reduce una ventana se 
pierden los detalles pequeños y 
el mencionado choque de colo¬ 
res se acentúa aún más. Por lo 
tanto, se consiguen los mejores 
resultados cuando se reduce una 
ventana que contiene sólo dos 
colores. Por último, indicar que 
las ventanas también pueden ser 





























































reproducidas a la inversa {como 
si se reflejaran en un espejo), du¬ 
plicarlas o rotarlas. 


DOCUMENTACION 


Un programa tan complicado 
como el Art Studio requiere un 
complejo manual que guíe al 
usuario a través de los diferentes 
menús. RAINBIRD no se ha dis¬ 
tinguido especialmente en este 
punto, produciendo un manual 


tan profesional como el progra¬ 
ma a! que acompaña. El folleto, 
de 58 páginas, está bien escrito y 
aclarado desde el principio hasta 
el final, concluyendo con un sim¬ 
ple, pero no por ello menos útil, 
ejemplo de cómo hacer un dibu¬ 
jo. También se comenta en el 
manual un programa que permi¬ 
te a los compradores hacer una 
versión personal del Art Studio, 
copiando el programa en una 
cinta virgen. 

Se personaliza la cinta en el 
sentido de que contiene paráme¬ 



tros específicos para determina¬ 
dos interfaces e impresoras. El 
Art Studio puede soportar dieci¬ 
siete interfaces Centronics y 
RS232, así es dificil que alguien 
no pueda hacer una copia en pa¬ 
pel, salvo que, por supuesto no 
tenga impresora. 


PRECIOS 

En principio el Art Studio es 
un programa en cassette que 
cuesta 14,95 libras, en Inglaterra, 
pero RAINBIRD también tiene 
una versión para los usuarios del 
microdrive de Sinclair y del In- 
terface para discos de Kempston. 
No hay cambios en ellas, tan só¬ 
lo, la adición de un programa que 
comprime las pantallas, una op¬ 
ción de arcos en el menú de for¬ 
mas, varios comandos de manejo 
de archivos y dos programas de 
instalación para microdrive y dis¬ 
co. El Art Studio no será capaz de 
hacer uso del compresor de pan¬ 
tallas, debido a la gran cantidad 
de memoria que esto requiere. 

Sin embargo, RAINBIRD 
venderá la versión ampliada al 
precio reducido de 12 libras a los 
usuarios de A.S. que habiéndolo 
comprado ya, decidan elevar su 
equipo al microdrive o al disco. 


CONCLUSION 

El Art Studio es actualmente, 
uno de los más complejos y po¬ 
tentes paquetes de diseño que se 
pueden encontrar hoy para el 
SPECTRUM. Su mejor y más 
provechosa utilización proviene 
de! diseño de pantallas de pre¬ 
sentación para juegos comercia¬ 
les. Aunque no se pueden repro¬ 
ducir las desbordantes imágenes 
de Daii, o la encendida pasión de 
Van Gogh, es posible producir 
pantallas de cabecera a nivel pro¬ 
fesional en la medida de tu pro¬ 
pio talento artístico. 

Joaquín Mal tos 
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Quien haya trabajado con gráficos en el Spectrum y 
haya tenido la necesidad de mantener varías pantallas 
en memoria a un mismo tiempo, se habrá dado cuenta 
de la cantidad de bytes que se «comen». Casi 7K por 
pantalla, que hacen que, aún disponiendo de un 48K, 
tras almacenar unas cuantas, nos quedemos sin sitio 
para otra cosa. 


L as siguientes rutinas intentan 
paliar este problema, compri¬ 
miendo las pantallas de forma 
que ocupen menos memoria. Para 
ello aprovechan dos características 
que suelen aparecer en todas ellas: 

La primera es que, por norma ge¬ 
neral, en toda pantalla existen zonas 
más o menos extensas en las que só¬ 
lo hay tinta, sólo hay papel o se re¬ 
pite un atributo o una estructura 
cualquiera. Debido a esto, hay zo¬ 
nas del fichero de presentación vi¬ 
sual en las que se repite un mismo 
byte un número determinado de ve¬ 
ces. 

La segunda característica de la 
que vamos a hacer uso es que, por 
complicado que sea el dibujo, prác¬ 
ticamente siempre hay algún byte 
que no es ulilizado. Hemos compro¬ 
bado esto en bastantes pantallas (e 
incluso programa en máquina o la 
propia ROM) y siempre ha sido así. 


Sistema de codificación 

La rutina COMPRF (Listado 1) es 
la encargada de COMPRimir las 
Pantallas. Se localiza junto con 
DCMPRP, en el bufier de la ZX- 
Printer, por lo que no debe utilizar¬ 
se el canal «P» mientras las usemos. 
Debe ser introducida con la direc¬ 
ción de memoria donde ha de alma¬ 
cenarse la pantalla comprimida en 
el par IIL; en el listado es 50.000 
(línea 130), pero puede modificarse 
siempre que quede por encima de la 
RAMTOP (un valor aconsejable pa¬ 
ra los usuarios de Spectrum 16K 
puede ser 26.000). 

Tras almacenar HL en el stack y 
ponera cero del registro A, se ejecu¬ 
ta la subrutina LOCPRF, encargada 


de LOCalizar el número que será 
utilizado como PReFijo para codifi¬ 
car las zonas de pantalla en las que 
un byte se repita 3 o más veces. Para 
esto utilizamos la instrucción CPIR, 
que a la salida dará Z activado sólo si 
el valor que carga A ha sido lacaliza- 
do en la pantalla. Si no se ha encon¬ 
trado, este es el número que necesi¬ 
tamos, por lo que se salla a 
COMPR1. Pero si se encuentra, da¬ 
mos un nuevo valora A y se repite el 
proceso, a no se que A vuelva a valer 
cero, lo que querría decir que ya se 
ha probado con todos los valores po¬ 
sibles, por lo que se saldría con un 
error «Out of DATA» para indicar 
que no es posible codificar esa pan¬ 
talla (en la práctica sólo sucedió esto 
cuando se había preparado específi¬ 
camente la pantalla para que ocu¬ 
rriera así). 

Una vez pasada esta fase, se alma¬ 
cena como primer byte del fichero 
comprimido el número que va a uti¬ 
lizarse como prefijo. Después, co¬ 
mienza a copiarse el fichero de pan¬ 
talla en la nueva localidad, compro¬ 
bando si un valor se repite dos veces 
y llamando en ese caso a CPREP. 
Además, se comprueba si HL vale 
cero, loque indicaría que hemos da¬ 
do una dirección de destino dema¬ 
siado alta, y asi es así. da error «Out 
of memory» (Para el 16K deberá 
sustituirse el XOR A de la línea 420 
por LD A,128). También se com¬ 
prueba sí el óy/emás significativo de 
IX es 5Bhex, lo cual significaría que 
se ha codificado la totalidad de la 
pantalla y por lo tanto el fin de la ru¬ 
tina, por lo que se retorna dando a 
BC el valor de HL (dirección del byte 
que sigue al fin de la pantalla com¬ 
primida). Para conseguir cargar en 
el acumulador el registro I (de IX) 


as. 



no nos ha quedado más remedió 
que recurrir a un pequeño truco: 
utilizar la instrucción equivalente 
en el par HL antecedida de DDhex, 
lo que, debido a la arquitectura usa¬ 
da en el X-80 para la ampliación del 
juego de instrucciones, equivale a 
LD A,I (Ide IXy no el registro de in¬ 
terrupciones). 

Por último, CPREP Comprar los 
sucesivos bytes con A y RLPite in¬ 
crementando B hasta que alguno 
sea distinto o B llegue a cero (=256), 
en cuyo caso almacena el prefijo se¬ 
guido del número de veces que se 
repite el valor de A, y retorna para 
que A sea almacenado y continúe 
COMPR2. 


Expandiendo las pantallas 

comprimidas 

La rutina DCPRMP (Listado 2), 
localizada tras la anterior, permite 
DcsCoMPRimir las Pantallas que 
hubieran sido codificadas. A la de¬ 
recha, HL debe contener la direc- 
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ción de inicio del fichero que quera¬ 
mos descomprimir (50.000 en el lis¬ 
tado). El funcionamiento es senci¬ 
llo: se carga en el registro C el prefi¬ 
jo y se comprueba si los siguientes 
números del fichero son iguales a 
éste. Si no son iguales, se pasan a 
pantalla normalmente, pero, si algu¬ 
no lo es, se salta a DCMPR3, donde 
se cargan los dos valores siguientes 
y, mediante un bucle, se realiza la 
expansión. En el bucle principal se 
comprueba el registro H, para retor¬ 
nar cuando el valor SBhex lo indi¬ 
que. 


Nuevo formato 

Así pues, el principio de un fiche¬ 
ro «comprimido» podría ser: 

251, 13,50,251, 100, 0,251,0,1,.„ 

Lo que quiere decir que el núme¬ 
ro usado como prefijo es el 251, por 
lo que al descomprimirlo quedaría 
primero un 13 y un 50; después ve¬ 
mos que aparece el prefijo, por lo 
que! siguiente número es la canti- 



1 REM Carg. COMPRESOR PANT. 
IO 

20 F'RINT FLASH 1; "Fokeando" ' ’ 
30 FOR N=0 TO 15 
40 LET C=C 
50 READ A$ 

60 FOR M=1 TO 14 ETER 2 
70 LET L=FM DCA$(M TO M+l>) 

80 POKE 23296+N*7+lNT (M/2),L 
90 LET C-C+L 
100 NEXT M 
110 READ B 

120 IF COB THEN PRINT FLASH 
1:" ERROR EN LINEA ":200+N#10; H 


130 
140 
200 
210 
220 
230 
240 
250 
260 
270 
2 SO 
290 
300 
310 
320 
330 
340 
350 
360 
500 
CGDE 
510 
+FN F 


NEXT N 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


' 2150C3E5AF2100" 
’ 4001001BEDB120" 
1 053D20F3CF0DDD" 
' 210Q40E17723 4F" 
1 DD7EOODDBEOICC" 
1 3G5B7723AFBC20" 
1 02CF03DD23DD7C" 
1 FE5B20E7E5C1C9" 

• DDBE02C00602DD" 
1 23DD23042805DD" 
■BE0128F6712370” 
'23C°2150C31100" 
' 404E237AFE5BC8" 

• 7EB928050CEDAO" 
1 18F32346237E12" 
'1310FC18E88O00 n 


. 7 45 
, 538 
, 782 
, 555 
, 963 
, 696 
. B13 
,1231 
,834 
, 561 
,737 
, 561 
.844 
, 765 
1 

,671 


DEF FN P í H$)=CODE H$-4B-7* < 
H*>64> 

DEF FN D<H$)=FN P<H$í1>)* 16 
f 2>> 














LISTADO 1 


dad de veces que se repite el que vie¬ 
ne .a continuación, es decir que tras 
el 50 vendrían 100 ceros. Seguiría 
un 10 y de nuevo 256 (=0) unos. 

En este ejemplo el ahorro de me¬ 
moria sería grande: 10 bytes írente a 
359, pero en pantallas de carga nor¬ 
males suele variar entre un 25% en 
las más complejas y un 60 o 70% en 
las sencillitas. Esto no es nada des¬ 
preciable si tenemos en cuenta que 
u n 25% de u na pan tal la son casi 1.7 K 
de memoria, lo cual supera ampija¬ 
mente los 110 bytes que ocupan las 
dos rutinas juntas. 

Cargador Basic 

Quienes no dispongan de ensam¬ 
blador ni de conocimientos de !en- 


LISTADO 2 


760 

770 




* 



780 

; DesCoflPfti mi r Pantalla 

790 

■ 



BOO 

?ENTRs 

HL-INICIO FICHERO 

SIO 




5 



B20 




B30 




B4Q 


ORE 

23375 

050 




860 


LD 

HL,50000 

070 

DCMFRP 



890 


LD 

DE,16384 

8*0 


LD 

C, f HL) 

900 

DCMFR1 



910 


INC 

HL 

920 

DCMFR2 



930 


LD 

A, D 

940 


CP 

“5B 

950 


REI 

Z 

960 


LD 

A, (HL) 

970 


CP 

C 

900 


JR 

Z,DCNRR7 

990 


INC 

C 

1000 


LD 1 


1010 


JR 

DCMPR2 

1020 

1030 

DCMPR3 

INC 

HL 

1040 


LD 

B, (HL ) 

1050 


INC 

HL 

1060 

1070 

DCMFR4 

LD 

A „ (HL) 

1000 


LD 

(DE) „ A 

1090 


INC 

DE 

1100 


DJNZ 

DCMFR4 

1110 


JR 

QCMPRl 


guaje máquina no deben desespe¬ 
rar, también pueden utilizar estas 
rutinas. I’ara ello deberán cargar el 
programa BASIC del Listado 3 al pie 
de la letra y ejecutarlo. 

En caso de que sea detectado al¬ 
gún error en las líneas DATA, en 
cuyo caso se dará un mensaje indi¬ 
cando la línea en que esta, habrá 
que corregirlo y ejecutar de nuevo el 
programa. Cuando no haya errores, 
podrá ser salvado a cinta en forma 
de bytes con SAVE «nombre» CO¬ 
DE 23296,110, y cargarlo posterior¬ 
mente con LOAD “ " C'ODE. 

Para comprimir la pantallal en 
memoria debe hacerse LET L=USR 
23296, lo que la codificaría dejando 
en la variable L la dirección del byte 
posterior al final del fichero. Esto la 
almacenará a partir de la dirección 
50.000, por lo que podemos averi¬ 
guar la longitud de la pantalla com¬ 
primida haciendo PRINT L—50000. 
Si queremos situar el fichero com¬ 
primido en un lugar determinado de 
la memoria (muy aconsejable que 
sea encima de RAMTOP) debere¬ 
mos pokear la dirección escogida 
como sigue: 

LET H=INT {dirección/256} 

POKE 23297, dirección—H*256: 

POKE 23298,1-1 

Por ejemplo, para un Spectrum 
de 16K. si queremos que comience a 
cargar a partir de la dirección 26000, 
habrá que hacer: 

CLEAR 25999: LET H- 

lNT(26000/256): 

POKE 23297,26000—H*256: PO¬ 
KE 23298,H 

Si acabamos de ejecutar la rutina 
para otra pantalla, podemos susti¬ 
tuir dirección por la variable L, con 
lo cual se almacena inmediatamen¬ 
te después de la anterior. 

Para expandir un fichero cargado 
anteriormente habrá que pokear la 
dirección de inicio (sólo si es distin¬ 
ta de 50000) en 23376 y 23377 como 
anteriormente, y hacer RANDOM1- 
ZE USR 23375* 


10 

20 

; <c) 

Patatita sott 

diU 

* 



40 

• CDMPRiíTur 

Pantal I a 

50 




60 

;ENTRi 

HL=DE5TINO 

70 

:SALD: 

EC=FIN PICHERO 

80 




■ 



90 




100 




1 10 


QRG 

23296 

120 




130 


LD 

HL,50000 

140 

COMFRF 



150 


PUSH 

HL 

160 


XOR 

A 

170 

LOCCOD 



180 


LD 

HL,16 38 4 

190 


LD 

BC,6912 

200 


CP IR 


210 


JR 

NZ.CDMPRl 

220 


DEC 

A 

230 


JR 

NZ,LOCCQD 

240 




250 

; 

"E Üut o-f DATA" 

260 




270 


RET 

8 

280 


DEFB 

13 

290 

C0MFR1 



300 


LD 

IX,16384 

310 


POP 

HL 

320 


LD 

(HL>,A 

330 


INC 

HL 

340 


LD 

C, A 

350 

C0MPR2 



360 


LD 

A,(IX) 

370 


CF 

ÍIX+1) 

380 


CALL 

Z.CPREP 

390 


LD 

<HL).A 

400 


INC 

HL 

410 


XOR 

A 

420 


CP 

H 

430 


JR 

NZ,C0MPR3 

440 




450 

; 

"4 Out cf memory 

460 




470 


RST 

8 

430 


DFFB 

3 

490 

C0MFR3 



500 


INC 

IX 

510 


DEFB 

^DD 

520 


LD 

A, H 

530 


CF 


540 


JR 

NZ,CÜNPR2 

550 


PUSH 

HL 

560 


POP 

BC 

570 


RET 


580 

CPREP 



590 


CP 

íIX+2) 

600 


RET 

NZ 

610 


LD 

B, 2 

620 


INC 

IX 

630 

CF'REPl 



640 


INC 

IX 

650 


INC 

e 

660 


JR 

Z,CPREF2 

670 


CP 

(1X41} 

680 


JR 

Z,CPREP1 

690 

CPREP2 



700 


LD 

(HL) ,C 

710 


INC 

HL 

720 


LD 

(HL í ,B 

730 


INC 

HL 

740 


RET 
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PIN SOFT, S.A. 


Tel. (93) 318 24 53 
08007 Barcelona 


Paseo de Gracia, 11 
Esc. C.,2? 4.° 


NOVEDADES SPECTRUM 


■¿S. JSlw c í r 
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ALIMENTACION : 

ININTERRUMPIDA 9.750 — 11 

- Para que los cortes de suministro 

eléctrico no te dejen a oscuras, 1*30 h. de ¡ rTZlT 

autonomía. = Sj 

BilMiQ MVItÚ. ítflicr i. a:^SSC- . i ,,n 

SITI-PRINTER 4.480 SP- i 

— Aprovecha tu impresora al cien por cien. 

— Listados de hasta 132 columnas, recibos, impresos, formularios, etc... 

- Utiliza la base de datos SITI. i 


TIENDA AL PUBLICO EN BARCELONA 


PEDIDOS POR COR REO O TELEFONO U 
Envíos contra reembolsa a toda España 
200ptas. gastos de envío 
En tu domicilio en 3-4 dias 


paña | 


Nombre ______ 

Dirección ^______—-- 

Población_____—_— 

Pedido ---—___ 

Enviar a: PIN SOFT, S.A. - P? de Gracia, 11 - Esc. C, 2 Ú 4 D - 08007 Barcelona 


I/F JOYSTICK 2.500 

- Con paro de imagen, para que puedas 
seguir el juego, paso a paso. 


JOYSTICK+Interface 
incorporado 3.750 
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-GUIA DEL HACKER — 

SWEEVO'S 

WORLD 


E n esta ocasión voy a contar la 
historia de los POKEs al mis¬ 
mo tiempo que los busco, con 
lo cual de momento lo único que 
puedo decir es que aparentemente 
el programa se carga sin una protec¬ 
ción excesivamente complicada. 
Todo parecen ser bloques a veloci¬ 
dad normal y sin cabecera. 

El primer paso será rastrear el 
proceso de carga. Cargo el primer 
bloque y lo paro. Nada se opone a 
ello. El iistado del cargador no apa¬ 
rece, pero es debido a que papel y 
tintaron del mismo color. Después 
de arreglar esto, podemos ver lo que 
hace: carga de la cinta una pantalla y 
dos bloques con CODE, y por últi¬ 
mo lanza el programa en la direc¬ 
ción 24800. Anulo esto último y de¬ 
jo que se ejecute, La carga se produ¬ 
ce sin problemas acabando con el 
informe 0 OK. Pruebo a lanzarlo en 
su dirección y el juego comienza co¬ 
rrectamente. No tiene ningún truco. 
Además parece que durante la carga 
deja sido suficiente para el buffet 
del microdrive, con lo que, teórica¬ 
mente, la operación de adaptación 
no debe dar ningún problema. Pasa¬ 
mos a averiguar la longitud y direc¬ 
ciones de los dos bloques en que es¬ 
ta almacenando el juego. Esto se 
puede hacer de muchas maneras. 
Yo utilizo uno de los múltiples pro¬ 
gramas para leer cabeceras. El resul¬ 
tado es que el primer bloque empie- 


Este mes nos enfrentamos 
en nuestra guía de 
hackers con el programa 
SWEEVO’S WORLD. 
Está realizado en tres 
dimensiones al estilo de 
los dos primeros 
programas en que 
ULTIMATE utilizó la 
técnica fílmation: 
KNIGHT LORE y 
ALIEN 8. 


za en la dirección 64400 y tiene 1085 
bytes, y el segundo empieza en 
24800 y tiene 33456 bytes. No hay 
ningún problema, para pasarlo a mi¬ 
crodrive. Incluso parece que queda 
en medio, en la dirección 58256, su¬ 
ficiente espacio para el monitor. 

Para empezar a analizar vamos a 
la dirección en que se lanza el pro¬ 
grama. Nos encontramos con un 
salto a # 9CD2. Aquí vemos que 
modifica algunas variables del siste¬ 
ma BASIC refiriéndolas al registro 
IY. Esto parece indicar que se va a 
apoyar en la ROM para algunas fun¬ 
ciones. En principio su supone que 
lo hará para la impresión de mensa¬ 


jes, puesto que ha abierto el canal 1. 
Por lo demás, aquí la zona de me¬ 
moria comprendida entre # A708 y 
H ABQ7, utilizando para ello el re¬ 
gistro IX. Al final llama a una subru¬ 
tina en la dirección H 908B, pero 
más que eso debe ser el programa 
principal, ya que si volviera la si¬ 
guiente instrucción es un salto a la 
dirección U 0000 que destruirá el 
juego. 

Pasamos a la dirección 14 908B. 
Casi al principio nos encontramos 
con un sugestivo LD A, # 05. Debe 
ser el número de vidas, pero antes 
de comprobarlo vamos a echar un 
vistazo a lo que hay detrás. Se inicia- 
¡izan un montón de variables, se lla¬ 
ma a algunas subrutinas y se cierra 
un bucle sobre la dirección H 90E3 
despuess de comprobar el dato con¬ 
tenido en U 6176 y si están pulsadas 
simultáneamente las teclas SYM- 
BOL-SIFT y 5. Esto sugiere muchas 
cosas y, aunque es posible que algu¬ 
na no sea cierta, vamos a contarlas. 
Todo lo que hay entre las direccio¬ 
nes # 908B y # 9ÜE3 debe corres¬ 
ponder con el menú que aparece al 
principio de la partida, en el que se 
nos da a elegir entre los cuatro nive¬ 
les planeta. La dirección U 6176 de¬ 
be controlar si nos han matado defi¬ 
nitivamente y hay que empezar una 
nueva partida. Las instrucciones de¬ 
ben estar equivocadas cuando dicen 
que para el juego hay que pulsar SS 
+ 0, ya que todo indica que se hace 








con SS + 5. Por último, al principio 
de lo que se supone e! bucle de jue¬ 
go, hay un bucle en el que se espera 
la llegada de tres interrupciones. Es 
de suponer que modificando este 
valorse podrá variar la velocidad del 
juego. 

Para tratar de comprobar todo es¬ 
to realizamos algunas modificacio¬ 
nes y lanzamos el programa. Incre¬ 
mento lo que parece el número de 
vidas y aumento la cantidad de inte¬ 
rrupciones que debe esperar. Parece 
que hemos acertado, eljuego es más 
lento, tenemos más vidas y pulsan¬ 
do SS + 5 se para. 

Volvemos a cargar el programa y 
continuamos investigando. Sabien¬ 
do que en la dirección # 611A se 
guardan las vidas que nos quedan, 
no debemos tener problemas para 
encontrar el POKE de vidas infini¬ 


tas. Buscamos cuántas veces es utili¬ 
zada esta variable y la encontramos 
cinco veces. Una para inicializarlaal 
principio de la partida, otra para es¬ 
cribirla en la pantalla, otra para 
comprobar si nos quedan más vidas 
y dos más para decrementarla (una 
para leer el antiguo valor y otra para 
poner el nuevo). Con esto ya tene- 
mosf las vidas infinitas, basta con 
poner en la dirección # 81C3 el dato 
# A7 (sustituimos la instrucción 
DEC A por AND A). Otra cosa que 
también se supone aunque todavía 
no la he comprobado es que en la di¬ 
rección ¡¥6119 se guarda el estado 
del robot. Durante la ¡nicialización 
se le da el valor 4 y se maneja con¬ 
juntamente con el número de vidas. 
Para evitar que decrezca probamos 
a poner en #835A un #B6 (cambiar 
DEC (HL) por OR (HL)). 


Acabo de probar los dos POKEs 
anteriores y funcionan bien. Con 
ellos ya se puede abordar el juego 
con bastantes probabilidades de lle¬ 
gar al final en la primera partida, pe¬ 
ro todavía es demasiado difícil y 
nuestro análisis no debe de quedar 
aquí. El próximo paso será tratar de 
averiguar qué rutinas son las encar¬ 
gadas de controlar los gráficos y del 
movimiento de los objetos. Tam¬ 
bién intentaremos descubrir cómo 
está codificado todo el juego. 

Antes de entrar en el bucle de jue¬ 
go hay tres llamadas a subrutinas 
que en teoría se deben escargar de 
inicial izar variables y del menú de 
presentación. Pruebo a parar el pro¬ 
grama después de la primera llama¬ 
da para comprobar qué cambios ha 
habido pero no es posible volver al 
monitor después de la rutina. La zo- 
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na de memoria donde está el moni¬ 
tor debe ser utilizada para algo. Bus¬ 
co cuándo se refiere a ella y me en¬ 
cuentro con que se usa para la crea¬ 
ción de los gráficos. Tiene exacta¬ 
mente 6K, lo justo para almacenar 
toda la pantalla sin atributos. Todos 
los gráficos se montan en esta zona 
y luego llamando a la rutina # 747B 
se vuelcan sobre la pantalla. Con es¬ 
ta forma de actuar consiguen varias 
ventajas. La organización de la me¬ 
moria a la hora de pintar un gráfico 
es la lógica en la que a continuación 
de la representación de una línea de 
pantalla se encuentra la correspon¬ 
diente a la línea inmediatamente in¬ 
ferior. De esta forma su utilización 
es bastante más sencilla y solamente 
hay que tener cuidado a la hora de 
volcar sobre pantalla. Por otra parte, 
se pueden despreocupar del proble¬ 
ma de que al borrar un gráfico para 
ponerlo en otra posición se pueda 
ver un momento en que no está en 
pantalla ninguno de los dos. A cam¬ 
bio, el mover 6K de memoria cada 
vez que se modifica algo requiere 
un tiempo, pero está bien resuelto 
para que sea lo más rápido posible y 
no frene el juego. 

Toda esta instrucción, aunque no 


nos permita directamente encontrar 
ningún POKE, seguramente será 
muy útil para poder comprender el 
resto del programa. Para empezar 
descubrimos que la primera de las 
tres llamadas (# 7B0D) se encarga 
de pintar todos los gráficos fijos en 
una pantalla. Justo delante hay un 
tentador LD A, # FE que no puedo 


resistirme a cambiar. Lanzo el pro¬ 
grama y el menú de presentación 
aparece sobre una de las pantallas 
del juego. Con esto ya podemos in¬ 
tentar escribir una rutina que nos 
muestre todas las habitaciones del 
planeta. El único problema es en 
qué dirección colocarla. El buffer de 
la impresora no nos sirve porque es 
usado por el programa, tampoco po¬ 
demos destruir las variables del sis¬ 
tema BASIC, así que de momento 
utilizaremos la zona correspondien- 
teds al programa en BASIC, aunque 
no tenemos demasiado sitio. 

La primera prueba para ver todas 
las pantallas ha resultado un fraca¬ 
so. Nada más lanzar el programa se 
queda colgado. Habrá que seguir in¬ 
vestigando lo que ocurre en la direc¬ 
ción # 7B0D. Las pantallas están co¬ 
dificadas a partir de la dirección # 
6278 y para ahorrar memoria cada 
una sólo ocupa los bytes necesarios 
para su definición. Las pantallas que 
no existen (los huecos del mapa) no 
gastan ni un bvte. El primer dato de 
cada pantalla indica el número de 
bytes que utiliza su definición, el se¬ 
gundo es el número de pantallas. El 
mapa será organizado en cuatro blo¬ 
ques de 8*8 pantallas, en total 256 
posibles habitaciones, pero no todas 
existen. Algunas son utilizadas para 




































































TABLA I 


POKE 33219,167 
POKE 37880,X 
POKE 34236,X 
POKE 37Ü99,X 
POKE 33626,182 
POKE 35353,142 
POKE 36215,201 
POKE 30263,33 
POKE 36324,0 
POKE 32161,24 
POKE 32219,142 
POKE 32034.134 
POKE 32007,142 
POKE 32874,33 
POKE 35728,110 
POKE 35786,0 
POKE 30238,24 
POKE 33437,104 
POKE 36089,176 
POKE 33442,104 


Vidas infinitas 
Número de vidas 
Tiempo para cambiar objeto 
Velocidad 

No cambia de estado 
No nos matan los enemigos 
Tablas quietas 
Quita las tablas 
Quita los dedos 

Evita muerte parcial por el dedo 
Evita muerte total por el dedo 
Evita muerte parcial por los objetos l'ijos 
Evita muerte total por los objetosd fijos 
Sigue teniendo ios objetos cuando los deja 
Evita la destrucción de los objetos por el dedo 
Se puede matar los enemigos con cualquier objeto 
Transforma los muñecos del suelo en dedos 
Evita la muerte por la pesa pero te atrapa 
Evita quedar atrapado por la pesa 
Inmortalidad total 


PROGRAMA 1 

10 CLEAR 600002 LET n=58256: 
RESTORE 

30 FOR i" 1OOO TD i.0.20 STEP 10 
40 READ a$,a: LET s=0 
50 FOR j=l TO LEN a$~t STEP 2 
60 LET d= 16*(CODE a$<j5-48-7*( 

a* (.j > > " 9 ”) > CODE a$ (j + i ) .40—7* ía 

í(j + í ) >"9") 

70 POKE n,d: LET n-n+l¡ LET s™ 
S+táí MEXT J 

O O I F e < > a T HE N P RI ¡\i r * - £ r r c r 
en la linea °;is STOP 
90 NEXT i 

'IO 0 LOAD ""SOR E E N 4 R A N D 0 MIZ E 

USR 58256 

lOOO DATA "DD2190FB1.13D043EFF37C 
D560530F1DD21E06011B0823EFF37CD5 
60530F121C2",3769 

1010 DATA "E311055DO12C00EDB0210 
5 5 D 2 2 D 5 9 O C 3 E06021786222315D2A315 
D7E5F160023",272 6 
1020 DATA "7É2BFEFE28EC1922315DC 
D0D7BCD99BFCD7B7421085C36007EA72 
SFC18DA",3454 


los menús de principio y final del 
juego. El problema que tenía la ruti¬ 
na para imprimir todas las pantallas 
era que intentaba pintar las que no 
existen. Con esto ya estamos prepa¬ 
rados para escribir una nueva ver¬ 
sión que funciona perfectamente. 
La tenéis en el programa 1. 

Ya que estamos en ello vamos a 
seguir analizando cómo está codifi¬ 
cado el mapa. Para extraer la infor¬ 
mación de la tabla llama a la direc¬ 
ción # 76A9, donde vemosf que el 
tercer byte tiene ia información de 
las cuatro posibles salidas laterales 
de la habitación. Por eliminación el 
cuarto byte debe contener el color 
del fondo y los gráficos del fondo. El 
bit 7 de este byte indica si la habita¬ 
ción ha sido recorrida o no para po¬ 
der calcular el tanto por ciento de 
aventura. Estos 4 bytes son los úni¬ 
cos indispensables (corresponde¬ 
rían a una habitación vacía). Los de¬ 
más se destinan a indicar la existen¬ 
cia de objetos. Cada uno de estos se 
codifica en dos bytes en los que el 
primero indica la posición dentro 
del mapa 8*8 en que está dividida 
cada habitación, y el segundo el tipo 
de objeto de que se trata. De esta 
forma Ja cantidad de memoria nece¬ 
saria para representar las pantallas 
es bastante pequeña y se puede in¬ 
cluir gran número de ellas, todas 
distintas. 

En este punto sí quisiéramos se¬ 
guir con el análisis metódico debe¬ 
ríamos tratar de averiguar cómo es¬ 
tán codificados los objetos no fijos 
(bota, lata, oso), las trampas móviles 
(dedo, etc.) y los enemigos, sin em¬ 
bargo, vamos a intentar una nueva 
estrategia. Partiendo del punto en 
que se decrementan las vidas inten¬ 
taremos ir hacia atrás en el progra¬ 
ma hasta encontrar dónde se realiza 
el test de colisión con los objetos 
mortales. De esta forma se suele lle¬ 
gar más rápidamente a los POKEs, 
pero se corre el riesgo de caer en un 
callejón sin salida y perder mucho 
tiempo. Además, no es muy aconse¬ 
jable utilizar esta técnica desde el 
principio, ya que en muchos casos 
se actúa por intuición y para no 
equivocarse conviene tener una 
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idea de cuáles son las variables del 
sistema. 

El número del sistema se decre- 
menta # 81C3. Vamos un poco ha¬ 
cia atrás y nos encontramos con que 
la rutina empieza en H 81AF. Bus¬ 
camos las llamadas a esta dirección 
que hay en el programas y encontra¬ 
mos dos. Retrocediendo desde la 
primera y después de buscar qué sal¬ 
to relativo va a parar la dirección H 
834E encontramos lo que busca¬ 
mos, o por lo menos eso parece. Hay 
una llamada a la dirección #91A3 y 
después se testean varios bits de un 
dato referido como (IX+13). En 
función de estos bits se realizan sal¬ 
tos que traen como resultado la pér¬ 
dida de una vida. 

Sin embargo, al mirar la rutina a 
la que llama nos encontramos con 
que no tiene nada que ver y se limita 
a la lectura del teclado o joystick se¬ 
gún corresponda. De todas formas, 




PROGRAMA 2 


10 CLEAR 60000: LET n=53256: R 
ESTQRE 


30 

FÜR 

i 

= 

i 

0 

00 TO 

i 1 0 3 

;tep 

i 0 

40 

READ 


a 
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a: LET 

3-0 



50 

FDR 

J 

- 
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TO LEN 

- r -:t ..... i 

ETER 


60 

i.ET 

...h 
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.* < CODE 
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PRIMT 
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en 1.a linea " ; i : STÉP 
90 MEXI i 

100 LOAD " "SCREEMf : PANDO MI ZE¬ 
US R 53256 

10OO DATA• "DD219OFB113DO43EFF37C 
D 5 6 O 5 3 O F1D D 21E O 6 011B O S 2 3 E F F 3 7 C D 5 
Ó0530Fi21D6",3789 
1010 DATA "E311055D01F800EDB0i 1C 
O F F 013 1 O O ED B O21055D 2 2 D59021C O F F 2 
2FF9021E060",3719 
I O 2 O D A T A "2 2 D 7 9 C C 3 E O 6 O C D 01.9 C 219 
0E31191E301FF09EDB0CD859B1603071 
0075669646%",3686 

1030 DATA "7320696E66696E69746!7 


35ECDC25D21C381363D380236A7CD859 
8160507496E”,3156 
10 4 O D A T A " 6 D 2 E 2 O746F 74 616C 5E C D C 
2 5 D 21A282364F 3 0 O23668C D O59816O 7 O 
7496E6D2E2O' 1 ,2 G 91 

1050 DATA "7061726369616C5ECDC25 
D21A17D11227D018628380301861S70E 
B71CD859816",3242 

1060 DATA "0907496E6D2E207065736 
15ECDC 25D219 DO 211F98C010O6F38O3O 
1B06870EB71",3035 
1070 DATA "CD8598160B0753696E207 
461.62606 1 735ECDC25D21377636CD380 
236213E0432",2803 

1030 DATA "1F62C9AF320S5C3A1A62E 
6O720083A1F62EEO2321F62CD7B74CD6 
B97CD99BF3A",3186 
109O DATA "085CF62OFE732SODFE6E2 
O D B C D85982O 4 E 4 F 5 E 3 7 C 9 C D859820534 
95EA7r.93EF7” « 3893 
110O DATA "DBFE1F3813CD7694AF32E 
B 6 O D D 211462213 A 6 2 C BEEC3AB8F1FD23 
ESI1F300DDD",3950 

1110 DATA "2100401. 1001B3EFFCDC60 
4FBC3998F".1607 
































PROGRAMA 3 

10 BORDER O; PAPER O: INK O 
20 CLEAR 24799 
30 LOAD ""SCREENÍ 
40 PRINT AT 3,0;: LOAD "" 
CODE 

50 PRIMT AT 3.0s: LOAD "" 
CODE. , , 

100 REM comienzo de lo pokes 
1000 RANDOMIZE USR 24800 


vamos a comprobar para qué sirve 
cada uno de los salios. Para ello, 
anularemoss uno de ellos cada vez y 
vemos frente a que somos inmorta¬ 
les. El primero de ellos se realiza 
después de testear el bit 5 y anulán¬ 
dolo conseguimos que las pesas no 
nos aplasten en su caída. Pero cuan¬ 
do nos caen encima, Sweevo queda 
atrapado bajo su peso con lo que si 
no encontramos otra solución será 
mejor que nos mate. El segundo sal¬ 
to corresponde al bit 2 y nos concede 
la inmortalidad contra todo lo que 
antes nos hacía perder una vida {ex¬ 
cepto la pesa). El tercer salto es con 
el bit Ü y elimina la muerte parcial. 
Sin embargo, liene el problema de 
que al acabar la partida nuestro hé¬ 
roe se pone a hacer tonterías y no se 
puede empezar de nuevo. Habrá 
que arreglar eso. El último sallo pa¬ 
rece que controla cuando no cae¬ 
mos por un agujero en vista de los 
efectos que produce. Si retrocede¬ 
mos un poco nos encontramos con 
que la rutina empieza en # 827F y 
no existe en este trozo nada que 
pueda modificar alguno de estos 
bits. Por lo tanto, debe de estar en 
otro rutina o en la misma más ade¬ 


lante. Siguiendo por este camino 
nos encontramos con dos llamadas 
a las direcciones # 7E28 y # 7ED5. 
Ahí seguirá nuestra búsqueda. En¬ 
tre otras cosas llama repetidas veces 
a la dirección # 7C75, y es aquí don¬ 
de manipula repetidas veces los da¬ 
tos que nos interesan. Después de 
analizarla se llega a la conclusión de 
que se encarga de controlar las coli¬ 
siones con los objetos fijos (en los 
que se incluye el resorte del ascen¬ 
sor y el muñeco que surge del suelo 
una vez que esta fuera. También se 
llama a la dirección # 7D2B que ha¬ 
ce las mismas comprobaciones res¬ 
pecto a las trampas móviles. 

Todos los POKEs útiles encontra¬ 
dos los tenéis en la tabla 1. Para 
usarlos teclear el programa 3 y po¬ 
ner a partir de la línea 100 los que 
queráis. Por último lanzad e! pro¬ 
grama y cargar la copia original. El 
programa 2 es un cargador con los 
POKEs más interesantes, que in¬ 
cluye tres funciones nuevas. Apre¬ 
tando la tecla 1 se consiguezfnatar a 
cualquier enemigo. La 2 nos permi¬ 
te abortar el programa y la 3 saca 
una copia de pantalla. 

Para acabar diremos que se trata 
de una pequeña maravilla de la pro¬ 
gramación. El programa está perfec¬ 
tamente estructurado, lo que facilita 
mucho nuestra tarea de búsqueda. 
Hay que destacar la curiosa forma 
en que maneja los bloques de datos 
correspondientes a los objetos mó¬ 
viles. Los tiene organizados en for¬ 
ma de listas al estilo del PASCAL. 
Cada bloque tiene almacenado un 
puntero que señala al siguiente. 
Existen dos listas de este tipo, una 
con la información de los objetos 
«vivos» y otra con los bloques que 
no se están utilizando y que están 
listos para la creación de cualquier 
objeto. También hay que decir que 
la memoria está bastante aprove¬ 
chada. Hubo problemas para locali¬ 
zar un sitio donde entrara el carga¬ 
dor con los POKEs. Finalmente, se 
cambió la posición de la pila. 


MANUEL ARANA 



























¡Amstrad Cimsumer Electronics adquiero 
Sinclair Research! 


Sír Clive Sinclair y Alan Sugar. presidentes 
respectivamente de SINCLAIR y AMSTRAD, 
comunicaban la sorprendente noticia en una rueda 
de prensa celebrada el lunes 7 de abril. 

Sugar anunció la adquisición de los derechos de los 
ordenadores Sinclair por un importe de cinco 
millones de libras. 


Software extremeño para ia 
educación 

El ICE de la Universidad de 
Extremadura ha hecho públicos 
los ganadores del I Concurso de 
Programas Didácticos para 
Ordenadores, dentro de los actos 
realizados con motivo de la VIH 
Semana de Extremadura en la 
Escuela. El primer premio ha sido 
otorgado a un programa realizado 
por Santiago Hdez. Cano y Angel 
Prieto para alumnos de segunda 
etapa de EGB compuesto de tres 
bloques («Observa y comenta», 
«Pregunta lo que ignores» y 
«Demuestras lo que sabes») que 
facilitan el aprendizaje de la 
geografía extremeña. 











































































Novedades de Talent 


Encuentros de QL con la arquitectura 


Talent Computer System ha 
lanzado recientemente dos 
nuevos productos para el QL, 
The Assembler Workbench y 
«TechniQL». El primero es un 
conjunto de utilidades para la 
escritura edición y depuración 
de programas en lenguaje 
ensamblador, formado por tres 
módulos principales: editor de 
pantalla completa, ensamblador 
y monitor desensamblador. El 
segundo es un paquete de 
CAD complementario del 
famoso GraphiQL, TechniQL 
permite la creación de 
complejos dibujos de tamaño 
varias veces mayor que la 
pantalla. 



Organizadas por Investrónica se han celebrado en EXPO-S1TAP, 
Colegio Oficial de Arquitectura, los Primeros Encuentros de QL 
con la Arquitectura. 

Durante estas jornadas se realizaron demostraciones prácticas 
sobre la utilidad y nuevas posibilidades que ofrece la informática 
aplicada a la Arquitectura. 


Domenech, Informática 
Educativa 


Preocupada por la inclusión de 
la informática en el mundo 
educativo, la empresa catalana 
Domenech ha lanzado un 
nuevo título editorial. 

Con el nombre de «La tortuga 
va a la EGB», presenta un 
cuaderno de fichas y 
actividades para el ciclo medio 
y superior de EGB, que no 
dudamos alcanzará el objetivo 
de difundir el lenguaje Logo 
entre los escolares. 


RA-MA, nuevos títulos 

680Ü0, GUIA DEL USUARIO de Lionei Fleelwood es 
uno de esos libros imprescindibles para cualquiera que 
desee comprender los misterios del lenguaje 
ensamblador, y pretenda aplicarlo a proyectos reales. 
Con un precio de 1,980 pías, es una de las novedades que 
presenta en este trimestre la editorial RA-MA, 











Factores 
primos: 

número 
más largo 

Cuando leí las bases del concurso matemático de 
Todospectrum decidí participar, pensando que sería 
fácil escribir un programa BASIC que tardase pocas 
horas en hallar los factores primos (difícilmente se 
podía suponer que hubiera factores superiores a 
250000). En una semana tenía ya escrito el programa 
de la figura 1, que tardaba 35 minutos en hallar los 
dos primeros divisores del 79 y el 5651. Para no estar 
escrito en código máquina, era bastante rápido: Sólo 
hubiera tardado cerca de un año en hacer la 
descomposición. A las cuatro horas, desesperado, 
apagué mi Spectrum. 

D espués de varios días inten¬ 
tando perfeccionar el progra¬ 
ma sin conseguir mejoras sus¬ 
tanciales, me decidí por el código 
máquina. Primero fue una subruti¬ 
na que eliminaba como posibles fac¬ 
tores aquellos números que fueran 
múltiplos de los 53 primeros núme¬ 
ros primos, y que también está en el 
.programa definitivo. Con esto hallé 
el tercer factor, el 327979. 

Aún así no bastaba, tuve que es¬ 
cribir entonces en código máquina 
las rutinas más importantes, inten¬ 
tando reducir en lo posible las vuel¬ 
tas al BASIC. Conseguí después de 
varios días, un programa capaz de 
manejar los números en binario, 
con un divisor de hasta 3 bytes, y 
que sólo necesitaba volver al BASIC 
al encontrar un factor o a! alcanzar 
la raíz cuadrada del dividendo, mo¬ 
mento en el programa debe termi¬ 
nar, lógicamente. Pero tras varias 
horas de trabajo, el programa seña¬ 


laba que no valía con tres bytes; El 
siguiente factor estaba por encima 
de 16777215 y había que introducir 
la posibilidad de trabajar con 4 by¬ 
tes. Rápidamente me puse mañosa 
la obra y dejé el programa como se 
ve en los listados de la figura 2. 

Este programa dio, finalmente, 
los resultados esperados (79, 5651, 
327979, 82347247 y 1947309701) en 
la noche del día 14 al 15 de enero, 
día en que se cerraba el plazo. 

Como se ve si se intenta realizar los 
listados, tuve que sacrificar la es¬ 
tructuración del programa en favor 
de la velocidad; se hace, por tanto, 
necesario, explicar el funciona¬ 
miento del programa: 

— Una vez comprobado que el 
2 no es divisor del número, se 
coloca mediante un GOSUB 1000, 
el dividendo en 13 bytes a partir de 
la dirección 35800; el primero de es¬ 
tos bytes es 0, y los bytes más signifi¬ 
cativos de su raíz cuadrada en las di- 














recciones 35905 y 35906. El primer 
divisor, que es 3. se guarda en 4 by- 
les a partir del 35900. 

Una vez hecho esto, llama por pri¬ 
mera vez a la subrutina en código 
máquina en la dirección «com». 

El primer LDIR coloca la tabla de 
la figura 3 en la dirección 35500. Es¬ 
ta tabla es usada por la rutina que va 
desde las líneas 80 a 190 y está com¬ 
puesta por 53 grupos de 2 bytes cada 
número (un grupo por cada número 
primo entre el 3 y el 251). Cada gru¬ 
po está formado por un contador de¬ 
creciente y por una constante, que 
es el número primo correspondien¬ 
te. 

Posteriormente, el programa cal¬ 
cula si el divisor es de 1, 2, 3 o 4 by¬ 
tes y llama, respectivamente, a las 
rutinas dvl, dv2, dv3 o dv4, que rea¬ 
lizan la división en base 2 del divi¬ 
dendo entre el divisor, y dan como 
resultado únicamente el resto. La fi¬ 
gura 5 muestra dos ejemplos de esta 
división. 

Lo primero que hacen estas ruti¬ 
nas es saltar a «setdv», donde se mi¬ 
ra en el registro c si el divisores múl¬ 
tiplo de uno de los 53 números pri¬ 
mos. En caso afirmativo, no realiza 
la división y salta a «suma2». Si, por 
el contrario, el registro C vale 0, Co¬ 
loca el dividendo en la posición 
35840, sobre la que se operan y vuel¬ 
ve. 

Luego, por otro LDIR, coloca el 
divisor en la posición 36000; en este 
momento los registros IX e IY seña¬ 
lan la dirección del dividendo y del 
divisor, respectivamente. Después 
del complicado proceso de la divi¬ 
sión, el registro IX se queda seña¬ 
lando al resto. Desde aquí el flujo 
del programa salta a la etiqueta «res¬ 
to», que comprueba el valor del res¬ 
to; si este es 0, salta a «divs», desde 
donde retorna el BASIC señalando 
que ha encontrado un divisor. 
Cuando esto ocurre, el BASIC lo 
guarda en la matriz n$ y divide el di¬ 
videndo por el divisor mediante un 
GOSUB 4000. 

Si el resto no es 0, el siguiente pa¬ 
so consiste en sumar dos al divisor 
para obtener el próximo divisor. El 
programa realiza entonces una últi¬ 
ma comprobación, la de si el divi¬ 
sor ha rebasado la raíz cuadrada, y si 
todavía no lo ha alcanzado cierra el 
ciclo en la dirección «mloop». Si lo 
ha rebasado ya vuelve al BASIC. En 
este caso, el dividendo es el último 
factor v el programa termina. 

J. INGNACIO PEREA 







PROGRAMA 1 


5 PDKE 23672,Os POKE 23673,Os 
PQKE 23674,0 

10 LET z23479159600157356 X7 
5629050677” 

100 LET n-1: DIN n<15>i CLS : P 
RIWT z n 

110 LET x=2: SO SUB 500 
120 LET 

130 1F X/30INT íx/3) AMD ÍSTRÍ 
x) ÍLEN STR$ k) 0"5“ AMD x/7<>IN 
T Cr/7) OR H<9 THEN GO SUB 500 
140 LET x =x+2: GG TO 130 
500 PRINT AT 21,16;x¡ IF x>SQR 
VAL Eí THEN GO TO BOGO 
600 LET j$-z*s LET k*=*STR£ m: G 
□ BÜB 4000: IF VAL m$ THEN RETU 
RN 

700 LET nín)-K: LET n=n+l: LET 
zt=lt: DEEP 1,30: PRINT AT 3*n-5 
^ík'TÍ: GD TO 500 
990 STOP 

4000 REtt j* = kT *1$ +fn$ 

4050 IF VAL j*<VAL k$ THEN LET 
1$= H 0»¡ LET RETURM 

4100 IF VAL jí<leB THEN LET 11° 
STR* INT <VAL jí/VAL k*> í LET 
—STRÍ (VAL jí-VAL k$*VAL l*)s RE 
TURN 

4150 IF VAL kíMeB THEN GO TO 4 
500 

4200 LET 1Í= M ”: LET ,j=VAL j* í TQ 
BJ 

4210 FOR i—9 TQ LEN j* 

4220 LET j —j* 10+VAL j*< i ) : IF .j< 

Íe8 AND i<LEN jí THEN MEXT i 

4225 LET 1-INT <j/VAL k$) g LET j 

^j-l*VAL kf? LET lt-lí+STR# 1 

4230 NEXT i 

4240 LET m*=STR* j 

4490 RETURN 

4500 PRINT 4500a STOP 

0000 IF z#*"l rt THEN LET k=VAL e 

r: GD TO 700 

9000 PRINT u Este programa ha tar 
dado ,M ÍFEEK 23672+256«PEEK 2367 
3+65536*PEEk: 23674>/50; lh segundo 

s.en la descDniposicion, " 

9010 FOR f = l TQ n-1: PRINT n(T>: 
NEXT i 

9020 FOR f=1 TO 60: BEEP .01,*! 
BEEP .01,f 72: NEXT * 

9900 STOP 
9990 RUN 


00170 noig INC HL 00840 

00180 INC HL 00850 

00190 DJNZ loop 00B60 seg2 

00200 JR cont 00870 

00210 rep DI 00880 

00220 LD C,0 00890 

00230 cent LD IY,35900 00900 

00240 LD A, (IY+0> 00910 

00250 AND A 00920 

00260 JP NZ,dv4 00930 

00270 OR < IY+1) 00940 

00280 JP NZ,dv3 00950 dv3 

00290 QR íIY+ 2 > 00960 

00300 JR NZ,dv2 00970 

00310 dvl CALL setdl 00980 

00320 LD HL,35903 00990 

00330 LD DE,36000 01000 

00340 LD 8C,2 01010 

00350 LDIR 01020 lp3 

00360 LD IY,36000 01030 

00370 LD B,i2 01040 

00380 lpl LD A,<IX+Ü) 01050 

00390 CP (IY+0) 01060 

00400 JR C,segl 01070 

00410 JR NZ,resl 01080 

00420 LD A,(IX+1) 01090 

00430 CP (IY+1) 01100 

00440 JR C,seg1 Oí 110 

00450 resi LD A,(IX+1) 01120 

00460 SUB (IY+1) 01130 

00470 LD (IX +1) , A 01140 

00480 LD A,(IX+0) 01150 

00490 SBC A , <IY+0) 01160 

00500 LD UX+O) ,A 01170 res3 

00510 seg1 SRL (IY+0) 01180 

00520 RR (IY+1) 01190 

00530 JR NC,1p1 01200 

00540 LD (IY+2>,128 01210 

00550 INC IX 01220 

00560 INC IY 01230 

00570 DJNZ lpl 01240 

00580 JP resto 01250 

00590 dv2 CALL setdv 01260 


SBC A, (IY+0) 
LD (IX+0),A 
SRL (IY+0) 

RR (IY+1) 

RR UY+2) 

JR NC,lp2 
LD (IY+3),128 
INC IX 
INC IY 
DJNZ 1p2 
JP resto 
CALL setdv 
LD HL,35901 
LD DE,36000 
LD BC,4 
LDIR 

LD IY,36000 
B. 10 
A, (IX+G) 

<IY+0) 


LD 

LD 

CP 

JR 

JR 

LD 

CP 

JR 

JR 

LD 

CP 

JR 

JR 

LD 

CP 

JR 

LD 

SUB 

LD 


C,seg3 
NZ,res3 
A,ÍIX+1) 
(IY+1) 

C,seg3 
NZ,res3 
A,(IX+2) 

(IY+2) 

C ,s'eg3 
NZ,res3 
A,<IX+3) 

<IY+3) 

C,seg3 
A,(IX+3) 
(IY+3) 
(IX+3),A 


LD A,(IX+2) 
SBC A,(IY+2) 
LD (IX+2), A 
LD A, (IX + 1) 
SBC A,(IY+1) 
LD (IX+l>, A 
LD A, (IX+0) 


9999 CLEAR : 5AVE "Pr irnos" LIME 


00600 


LD 

HL,35902 

01270 

SEC 

A,(IY+0) 

9990 




00610 


LD 

DE,36000 

01280 

LD 

(IX+O) , A 





00620 


LD 

BC, 3 

01290 seg3 

SRL 

(IY+0) 




00630 


LDIR 

01300 
i t h n 

RR 

nn 

(IY+1) 





00640 


LU 

I Y,Ó6ÜUU 

U1.31U 

hK 

v 1 Y + ¿i } 

Í’U( XrUv\M \ 1 


00650 


LD 

B, 11 

01320 

RR 

(IY+3) 





00660 

1 p2 

LD 

A, íIX+O) 

01330 

J R 

NC,Ip3 





00670 


CP 

CIY+0) 

01340 

LD 

(IY+4),128 

000 i 0 


ORG-34000 


00600 


JR 

C,seg2 

01350 

INC 

IX 

00020 

; 



00690 


JR 

NZ,res2 

01360 

INC 

IY 

00030 

coro 

DI 


00700 


LD 

A,(IX+1) 

01370 

DJNZ lp3 

00040 


LD DE,35500 


00710 


CP 

<IY+1) 

01380 

JF 

resto 

00050 


LD HL,34800 


00720 


JR 

C,seg2 

01390 dv4 

CALL setdv 

00060 


LD BC,106 


00730 


JR 

NZ,res2 

01400 

LD 

HL T 35900 

00070 


LDIR ;tabla 


i 00740 


LD 

A, (IX+2) 

01410 

LD 

DE,36000 

00080 

mi oop 

LD BC,13568 


00750 


CP 

(1Y+2) 

01420 

LD 

BC 7 5 

00090 


LD HL,35500 


00760 


JR 

C,seg2 

01430 

LDIR 

00100 

1 oop 

DEC (HL) 


00770 

r 

LD 

A,(IX+2> 

01440 

LD 

1 Y,36000 

00110 


JR NZ,noig 


00780 


SUB <IY + 2 S 

01450 

LD 

B,9 

00120 


INC HL 


00790 


LD 

(IX+2),A 

01460 lp4 

LD 

A,(IX+O) 

00130 


r 

o 

i> 

a 

X 

r 


00800 


LD 

A,(IX+1) 

01470 

CP 

( IY + 0) 

00140 


DEC HL 


00610 


SBC A,(IY+1) 

01480 

JR 

C,seg4 

00150 


LD (HL),A 


00020 


LD 

(IX+1),A 

01490 

JR 

NZ,res4 

00160 


INC C 

► 

00830 


LD 

A,(IX+O) 

01500 

LD 

A, (IX+1) 



















01510 

cp (iv+n 

01 950 


LD BC,254 : 

si CS, 

01520 

JR C,seg4 

01960 


IN A.fC) ; 

A,0,1, 

01530 

JR NZ *res4 

01970 


RRA : 

0,P,ENT 

01540 

LD A, UX+2) 

01980 


JR C,suma2¡ 

□ SRC 

01550 

CP UY+2) 

01990 


LD A.2 : 

están 

01560 

JR C,seg4 

02000 


JR volv spulsados 

01570 

JR NZ,res4 

02010 

tecla 

DI 


01580 

LD A,(ÍX+3) 

02020 

suma2 

LD A,2 

;Suma 2 

01590 

CP (IY+3) 

02030 


LD IY„35900 

: a i di 

01600 

JR C,seg4 

02040 


ADD A,ÍIY+3) 

;vi sor 

01610 

JR NZ,res4 

02050 


LD (IY+35,ñ 


01620 

LD fl,(XX+4> 

02060 


LD A, UY+2) 


01630 

CP ( IY + 4 > 

02070 


ADC A,0 


01640 

JR C*seg4 

02080 


LD UY+2), A 


01650 res4 

LD A,(IX+4) 

02090 


LD A.ÍIY+3 > 


01660 

SUB CIY+4) 

02100 


ADC A,0 


01670 

LD <IX+4),A 

02110 


LD (IY+1) ,A 


01690 

LD «,(IX+31 

02120 


L D A, £ IY + 0) 


01680 

LD A,(1X+3) 

02130 


ADC A,0 


01690 

SBC A,(IY+3> 

02140 


LD (IY+0),A 


01700 

LD <1X+3), A 

02150 


LD H,A 

;( IY+0 ) 

01710 

LD A,(IX+2Í 

02160 


LD LO IY+1) 


01720 

SBC A,UY+2) 

02170 


LD D, £ IY+5) 


01730 

LD <IX+2?, fl 

02180 


LD E,(IY+6) 


01740 

LD A,(IX+15 

02190 


SBC HL,DE 


01750 

SBC A.£IY+1) 

02200 


JP C,mlaap! limite 

01760 

LD (IX+1),A 

02210 


XOR A i¡ r 

ebasado 

01770 

LD A,CIX+0) 

02220 


JR volv 


01780 

SBC A ? UY+0) 

02230 

d i v i s 

LD A, 1 


01790 

LD UXfO),A 

02240 


JR volv 


01000 seg4 

SRL £ IY+0) 

02250 

set.d v 

LD A,C ; 

Numero 

01810 

RR UV+1) 

02260 


AND A ; 

pr imo? 

01820 

RR UY + 2) 

02270 


JR Z H setdl 


01830 

RR ÍIY+3) 

02280 


PÜP HL;dir,para RET 

1 01840 

RR £ IY+4) 

02290 


JR suma2 


01850 

JR NC,Ip4 

02300 

setd 1 

LD HL,35800 


01860 

LD UY+5>,12B 

02310 


LD DE,35940 


01870 

¡NC IX 

02320 


LD BC, 16 


01080 

INC [Y 

02330 


LDIR ¡dividendo 

01890 

DÉNZ Ip4 

02340 


LD IX,35840 


01900 resto 

LD A,(IX+0) 

02350 


RET 


01910 

□R ÍIX+D 

02360 

vol V 

LD í23296),A 


01920 

PR UX + 2) 

02370 


El 


01930 

OR ax+3) 

02380 


REI ¡al E?fiS IC 

01940 

JR 2, el i vis; Vuelve 

02390 

Final 

DEFB 0,0,0,0 



PROGRAMA 3 


5 GD TO 20 

10 CLEAR 26979: LOAD " M CODE 
20 DI11 ní (21,12) s LET n = l 
100 CLS : LET w*= 11 2347915960015 
7356175629850677 M ! INPUT 1986 

Peres Software.Numero: 11 ' " íP 

resiona ENTER para el numero" ' (w 
*)í M > pp 'p$: PRINT AT 21 T 16; "BASIC 

41 

105 IF p*="" THEN LET p*=wf 
107 LET y*=pí: PRINT AT 21,16;" 
BASIC" ;AT 0,0;y# 

110 LET 3=VAL yííLEN yí): IF a< 
>2*1NT (a/2) THEN 6Ü TO ISO 
120 LET k*= 2: LET z$=y$: GO SUB 
4000: LET yT^lfe LET níín>= ,, 2": 
LET n=n+1: PRINT "2 ”;y£: GO TD 
110: RETI división por 2 
180 PQKE 35813,0: POKE 35814,0; 
POKE 35815,0: GO SUB 1000; POKE 
35900,0; POKE 35901,0: POKE 359 
02,0; POKE 35903,3; POKE 35904,0 
: REM primer divisor=3 
190 BEEP . 1,0: PRINT AT 21,16;^ 
C/M lp : LET us=ÜSR 34000 
200 PRINT AT 21,16; "BASIC"; LET 
ue-PEEK 23296 

205 LET k= 16777216*PEEK 35900+6 
553ó*PEEK 35901+256*PEEK 35902+P 
EEK 35903 

210 IF us=0 THEN BEEP .1,-20: 


GO TO 8000 

215 IF us»2 THEN BEEP .01,60: 
PRINT AT 21,Ojx: PRINT AT 21,16; 
M C/M 41 : RANDONIZE USR 34534: Gü 
TO 200 

217 REIÍ IF Lis*! THEN 
220 BEEP .1,40: LET z*“yf: GO S 
UB 4000: LET n*£n)=STR* h: PRINT 
AT n , O; ; H ";lí: LET n^n+lt LET 

222 IF K>SQR VAL y* THEN GO TO 
8000: REM No buscar mas 
225 GD SÜB 1000: BEEP ,1,0: PRI 
NT AT 21,16; Jl C/M ": RANDQMIZE U 
SR 34032: 60 TO 200 
1000 REM Operaciones previas 
par a rada dividendp 
1005 LET v~256: LET sS-yís FOR f 
“35812 TO 35800 STEP -1: GO SUB 
4000 : POKE f , .i: LET z*=l#: NEXT 
f 

1010 LET a-S0R VAL yT/65576+1: R 
EM +1 por si acasa 

1015 IF a>65535 THEN LET a=6553 
5: REN limite aproximado para 
seguir calculando 
1020 POKE 35905,INT (a/256): POK 
E 35906,a“256*INT ía/256>s RETUR 
N i 

4000 REN División entera - - 
zi | >í 


\ j/ 1T 



4100 IF VAL zt<leB THEN GO TO 4 
500 


4200 LET 1*=""; LET j-VAL zt ( TO 
7) 

4210 FOR i=8 TO LEN z* 

4220 LET j-j * 10+VAL z#£i> 

4225 LET 1=INT íj/sOs LET 
ks LET lí=l*+BTRt 1 

4230 NEXT i 
4490 RETURN 

4500 LET l$=STR:t INT (VAL zI/k): 

LET j=VAL zí-x*VAL IT; RETURN 
7900 REM Encontrados todos 1 os 
■factores primos 

8000 IF yiO" 1" THEN LET nítn)~ 
yT: LET y*="l M : LET n-n+1 
9000 BEEP .5,30: CLS : PRINT lp Lo 
s factores primos son;": FOR f = 1 
TD n—1: PRINT n*(f): NEXT i 
9300 REM Reloj 

9400 POKE 23672,0: POKE 23673,0: 
POKE 23674,0 

9500 POKE 23624,184; PRINT 10;AT 
0,0;" Terminado hace ";INT ((6 
5535+PEEK 23674+25Ó*PEEK‘23673+P 
EEK 23672) /50> ; " segundos. " , 11 

Presiona ENTER",: IF INkEVt 
OCHRt 13 THEN 80 TQ 9500 

9998 BQRÜER 7: STOP 

9999 CLEAR : SAVE "PROGRAMA" LIN 
E 10: SAVE "pr cVm'TODE 34000,95 
O: REM Pragrama+Bytes 
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Quien es quien 
en el mundo 
del QL 


PROSPERO SOFTWARE LTD. 

190 CASTLENAU 
LODON SW13 9D4 

Esta firma desarrolla actualmente 
software para el QL bajo el sistema 
operativo QDOS. Prospero es cono¬ 
cida por sus programas para CP/M- 
80 y el PRO-PASCAL-ISO para 
IBM PC, primer compilador de Pas¬ 
cal para microordenador que superó 
las pruebas de homologación del 
l.S.O. 


DIGITAL PRECISION 
222 THE AVENUE 
LONDON E4 9SE 

Prácticamente desconocida hasta 
ahora. Digital Precisión ha sido lan¬ 
zada al estrellato por el SUPER- 
CHARGE SUPERBASIC COMPI- 
LER (Compilador de SUPERBA- 
SIC). Otros productos para QL desa¬ 
rrollados por esta empresa son: 

Super Forth 

Super Sprite Generator 

Super Monitor Dissasembler 

QJUMP 

25 KING STREET 
RAMPTON 

CAMBRIDGE CB4 4QD 

QJUMP fue fundada por Tony 
Tebby, creador del sistema operati¬ 
vo del QL. Entre al software desa¬ 
rrollado por esta empresa se en¬ 
cuentra el QL TOOLKIT, extraordi¬ 
nario programa completo al sistema 
operativo. También comercializan 
los siguientes productos: 


Una de las mayores 
preocupaciones de los 
usuarios del QL es la 
escasez de software y 
hardware en España. 
Cada vez son más 
quienes recurren al 
mercado británico, dado 
el desinterés de 
Investrónica. Por ello, 
ofrecemos una lista de las 
empresas británicas que 
trabajan para el QL, 
especificando los 
productos que 
comercializan. 


QL Tool kit II (ROM) 

QL Monitor Debugger 
Eprom Programmer 
QFLP Upgrade ROM 

QJUMP ha escrito el firmware de 
la mayoría de los controladores de 
floppy para QL. El firmware de To¬ 
ny Tebby permite leer, escribir y 
formatear discos en sectores de 128 
bytes a 1024 bytes, lo que cubre la 
mayor parte de los formatos utiliza¬ 
dos. Puede acceder al disco como si 
fuese un sólo fichero de éste, lo que 
permite el lujo de tener un floppy 
con discos formato PC DOS, otro 
QDOS y otro UNIX, por ejemplo. Y 
con rutinas adecuadas se podría tra¬ 
bajar con los tres formatos a la vez. 
Con las rutinas adecuadas, el QL po¬ 


dría ser una solución a la conversión 
de formatos. 


Este fabricante de impresoras, 
que ha dado su nombre al interface 
paralelo para la conexión de estas, 
ha lanzado una impresora con el 
juego de caracteres del QL, termi¬ 
nando con los problemas de transía¬ 
te. 


Computer One es una empresa 
muy conocida en el mundo del QL. 
Dispone de los siguientes progra¬ 
mas: 

QL Typing Tutor 
QL Assembler 
QL Forth 
QL Pascal 

El Pascal es inferior al de M ETA- 
COMCO, pero a cambio deja más 
memoria libre para el usuario. 

GST COMPUTER SYSTEM LTD. 
91 HIGH STREET 
LONG STANTON 
CAMBRIDGE 

De GST destacan el ASSEM¬ 
BLER y el LINKER, programas 
adoptados oficialmente por Sinclair. 

QUEST INTERNATIONAL LTD. 
TEL.: 04215 66488 

Destaca la implementación del 
sistema operativo CPM/68K, orígi- 


CENTRON1CS 


COMPUTER ONE 
SCIENCE PARK 
MILTON ROAD 
CAMBRIDGE 
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Unidad de discos y etmlroladur de Cu man a. 


automática y el QMOD, modem. 
Juntos constituyen un sistema com¬ 
pleto de comunicaciones para el 
QL, permitiendo la conexión a ba¬ 
ses de datos de grandes ordenado¬ 
res. 

DATA MANAGEMENT 
CLARK HOUSE 
THE VILLAGE 
HAXBY 

YORK Y03 8HU 

Otra firma que dedica sus esfuer¬ 
zos al terreno de las comunicacio¬ 
nes con emuladores múltiples de 
terminal, software de comunicacio¬ 
nes y módems. 

i 

MICROPERIPHERAL LTD. 

TEL.: (0256) 473232 

Fabricante de los discos oficiales 
de Sinclair. Estos discos han sido 
criticados por tener un llrmwarc in¬ 
ferior al de otras unidades. 

COMPUTAMATE 
TEL.: 0768 811711 

Una de las primeras casas en fa¬ 
bricar discos de 3.5 y 51/4 para el 
QL. El software es de QJUMP. Tam¬ 
bién realiza consolas de expansión. 


nal de DIGITAL RESEARCH, dis¬ 
ponible desde septiembre de 1984. 
También distribuye paquetes de 
aplicaciones y juegos, tanto para 
CPM como para QDOS. 

En cuanto a hardware, cuenta con 
ampliaciones de memoria de 64 a 
512 K, unidades de disco de 5” 1/4 y 
un disco Winchester de 7,5 MB. 

MICRO APL. 

TEL.: 01 622 0395 

Esta firma, especializada en intér¬ 
pretes de APL, distribuye al APL del 
QL. Este potente lenguaje estaba 
disponible hasta ahora únicamente 
para grandes ordenadores. 

TANDATA MARKETING LTD. 
ALBERROAD NORTH 
MALVERN 
WORCS WR14 2TL 

Distribuye el QCOM, interface de 
comunicaciones, el QCALL, módu¬ 
lo de llamada, marcado y respuesta 



Adaptador 
Serie-Centro ni ns 
de Mira ele 
Systems. 









PCML 

ROYAL MILLS 

ESHER, SUR REY KT1U, 8 AS 


Dispone de expansiones de me¬ 
moria, interfaces de tloppy con 
RAM adiccional y de una tarjeta con 
un procesador Z-80, lo que permite 
la posibilidad de utilizar CPM 80. 


TDL LTD. 
BRISTOL 


TDI ha desarrollado el sistema 
operativo P-SYSTEM o UCSD-PL, 
creado en la Universidad de Califor¬ 
nia-San Diego. Para este sistemase 
han lanzado inicialmente los popu¬ 
lares UCSD-PASCAL y FOR- 
TRAN-ANS1 77, así como diversas 
aplicaciones. 


MIRACLE SYSTEMS LIMITED 
UNIT 37a. AVONDALED WORKS- 
HOPS 

WOODLAND WAY, KINGS- 
WOOD 

BRISTOL BS15 IQL 


Produce ampliaciones de memo¬ 


ria de 256 K y 512 K, con un COneC- BCPL, desarrollado por Metacomco. 

tor que permite la conexión simul- , .... _ 

tanea del disco. También comercia¬ 
liza convertidores serie paralelo 
Centronics. 


CAMBRIDGE SYSTEMS TECH¬ 
NOLOGY (CST) 

30 REGE NT STREET 
CAMBRIDGE CB2 1DB 


Entre sus productos destaca el su- 
perprofesional interface IEEE-488, 
creada por el Instituto de Ingenieros 
Eléctricos y Electrónicos y adoptado 
como standard mundial por la Co¬ 
misión Electrototécnica Internacio¬ 
nal (IEC). 


METACOMCO 
26 PORTLAND SQUARE 
BRISTOL BS2 8RZ 


Junto con Computer One, fue 
una de las primeras empresas en 
producir software para el QL. 
Cuenta con los siguientes progra¬ 
mas: 


Assembler 

BCPL 

L1SP 

Pascal-ISQ 

Lattice-C 


Cable adaptador de joysticks, de IVliracle System. 
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LOS BIIGS DEL SISTEMA 

OPERATIVO 


A UNQUE elQLtiene un núme¬ 
ro muy pequeño de bugs, es 
conveniente conocerles, para 
saber evitarlos. 

En primer lugar vamos a citar los 
bugs comprobados en la versión es¬ 
pañola, que son tres únicamente, y 
dos de ellos en el WHEN ERRor. 

1 La instrucción GOSUB dentro 
de un bucle corto FOR o REPeat ac¬ 
túa con fin del bucle. 

Forma de evitarlo; utilizar la for¬ 
ma larga, o utilizar las más raciona¬ 
les procedures. 

2 Hay un indicador de error que 
cuelga el QL. 

Forma de evitarlo: no utilizar in¬ 
dicadores, es mejor utilizar el ER- 
NUM y una variable. Ejemplo IN- 
DIO=ABS(ERNUM) y luego if o se- 
lect con la variable INDIC. Los va¬ 
lores de INDIC están en el manual 
en ERRORES, la lunción ERNUM 
los da en negativo, de ah i el ABS. 

3 Cuando está el WHEN ERRor 
activado, y al llamar a una función 
con una expresión en su argumento 
se produce el error de desborda¬ 
miento, al calcular ésta se cuelga el 
QL. 

Forma de evitarlo; utilizar una va¬ 
riable intermedia de forma que no 
se llame a las funciones con expre¬ 
siones dentro del paréntesis. 

d=sqrt(3*X/12—10) puede colgar 
el QL con WHEN ERRor. 

d=3*x/12—10:d=sqrt(d) no lo 
cuelga nunca. 

Creo que por esos dos pequeños 
bugs, no debemos de abandonar el 
uso del estupendo WHEN ERRor. 

Hay detalles que no son bugs. 
sino actuaciones racionales de los 
diseñadores del QL: 

El mensaje de “error en expre¬ 
sión” o de “nombre incorrecto” ocu¬ 
rre siempre que se encuentra con 
una variable no inicializada, proce¬ 
dures o funciones no definidas, etc. 
Por cierto, el ANSI Basic exige este 
mensaje de error para variables no 
inicializadas. 

No admite el dimensionamiento 


implícito, al igual que el ANSI BA¬ 
SIC, hay que definir siempre las di¬ 
mensiones de las matrices. 

En un WHEN ERRor no se admi¬ 
ten errores, para evitar bucles de au- 
totratamiento de errores, y pone el 
mensaje de: 

“durante una ejecución WHEN” 
para volver a la normalidad pulsar 
directo desde el teclado END 
WHEN. 

El «break» no es atrapado por 
WHEN ERRor, para facilitar la co¬ 
rrección de programas que lo utili¬ 
cen. 

Debido a que se trazan por «slip- 
ples» bloques de cuatro puntos, al 
trazar puntos traza dos en vez de 
uno, es fácil definirse una función 
punto con BLOCK, o solicitar la ru¬ 
tina de Investrónica para un solo 
punto. 


En procedures y subrutinas no se 
admite MRUN y MERGE para evi¬ 
tar que se pueda desordenar la pila 
de retornos de subrutinas. 

RENUM es peligroso desde un 
programa, puede liar al intérprete si 
cambia el número de línea en que se 
solicita, también DLINE es peligro¬ 
so desde programa, si borra la línea 
que se está ejecutando, los dos no se 
admiten desde procedures. 

Hay una combinación extraña de 
teclas que «cuelga» al QL sino se tie¬ 
ne un software adecuado, es debido 
a que genera una interrupción nivel 
7. Sirve pra que los programadores 
puedan intentar levantar «cuel¬ 
gues» de programas en código má¬ 
quina. Programas monitores espe¬ 
ciales aprovechan esta fantástica fa¬ 
cilidad de! QDOS. 

Para evitar lios, la radiodifusión 
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de red local funciona sin comproba¬ 
ción, sólo para cortos mensajes, de¬ 
be de utilizarse sólo como canal de 
órdenes, y disponer de la propia 
comprobación por programa de ios 
usuarios. Viene documentado en el 
Manual de usuario, Máxima longi¬ 
tud de mensaje en Radiodifusión 
por red local 255 byies. Que nadie 
hable de Bugs si falla en mensajes 
largos. Para mensajes largos utilizad 
la red normal tal y como indica el 
manual. 

Por último, antes de hablar de un 
nuevo bug, consultar, es muy fácil 
que sea error de programación. 

Veamos ahora la «TERRIBLE» 
lista de bugs, algunos muy oscuros,- 
de las versiones anteriores. No exis¬ 
ten en la versión española, excepto 
algunos no comprobados. Aquellos 
que tengan QLs antiguos, que cam¬ 
bien a las nuevas ROMS. 

1 Una muy molesta para los pro- 
gramadoresenC.M.: el QLse colga¬ 
ba al utilizar CALL desde un pro¬ 
grama de SuperBasic que ocupase 
más de 32K. No se ha comprobado, 
pero Sinclair daba una rutina que lo 
corregía. Habitualmente se cargan 
extensiones en C.M. en el programa 
BOOT, que es corto. No es bueno 
cargar en el programa principal las 
extensiones, si se para y se vuelve a 
lanzar, va rellenando cada vez la 
memoria de rutinas en C.M. y se 
puede forzar un fuera de la memoria 
por mala programación, 

2 No reconocía más que una 
ROM de periféricos. Aunque no se 
ha comprobado expe rime nial men¬ 
te, no hay errores en las rutinas de 
chequeo de ROM de periféricos, si¬ 
tuadas entre S4A62 y $4AC2. Sin¬ 
clair también proporcionaba una ru¬ 
tina de corrección. 

3 List desde un programa daba 
“no implementado”. 

4 Si con DL1NE se borra la últi¬ 
ma procedure de un programa, se 
llama a la procedure desde el tecla¬ 
do, y después se hace clear, se colga¬ 
ba el QL. 

5 Si se coloca una expresión en¬ 
tre paréntesis en ios data, ignoraba 
el resto de la línea. 

El QL admite expresiones en los 
DATA, y si se colocan las constan¬ 
tes al la numéricas sin comillas o 

Ote . 
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apostrofes da el correcto “error en 
expresión” al no encontrar la varia¬ 
ble. 


6 dir mdv8_ y después dir 

nldv2 no funcionaba bien, 

7 Al editar una procedure aborta¬ 
da, a veces editaba una línea cual¬ 


quiera. Se corregia con un simple 
list u otra cosa y después editar. 

El mensaje “PROC/FN limpiado” 
es correcto, siempre que se edite, o 
se dé un comando directo distinto 
de CONTINUE O RETRY, y el pro¬ 
grama se haya parado en medio de 
una procedure o función, si no se hi¬ 
ciese así, se desordenaría la pila de 
retornos. 

8 Cuando se declaraban más de 9 
nombres de variables iocales, origi¬ 
naban problemas. 

9 No era conveniente hacer tro¬ 
ceado de matrices de cadenas, era 
mejor utilizar una variable interme¬ 
dia. 

10 En la ROM JS, de todos los ar¬ 
gumentos de la fundón, sólo admi¬ 
tía el SELECT con el último. 

Además hay que destacar que los 
bugs son en su mayoría del intérpre¬ 
te y no del QDOS, por cierto sería 
genial una rutina que aprovechase 
la interrupción de nivel 7, para «le¬ 
vantar» los cuelgues del intérprete. 
Aunque lo bueno es compilar. 


José M. Cuzma n 







SISTEMAS OPERATIVOS 

MULTTTAREA 



D ESDE el lanzamiento del QL 
se habla mucho de la multita¬ 
rea y del mítico UNI X. Vamos 
a explicar un poco la historia de los 
sistemas operativos multitarea. 

Cuando la Informática, estaba 
empezando, y los equipos eran muy 
costosos, una máquina con las posi¬ 
bilidades de un Spectrum costaba 
millones de pesetas y a nadie se le 
ocurría poder tenerla para él solo. 

El sistema que se utilizaba para 
aprovechar los costosos equipos era 
el batch, o procesado por lotes. Los 
usuarios del ordenador depositaban 
sus programas y datos en el Centro 
de Cálculo, los empleados de centro 
introducían los programas y datos y 
recogían los resultados, luego el 
usuario recibía los resultados. 


Naturalmente el menor error del 
programa y de los datos, obligaba a 
repetir el proceso, con la consi¬ 
guiente pérdida de tiempo. El desa¬ 
rrollo de programas era laboriosísi¬ 
mo. 

Como era económicamente im¬ 
posible el que un usuario pudiese 
tener un ordenador para él sólo, en 
las universidades los programado- 
res, cansados de entregar un progra¬ 
ma, recogerlo al día siguiente con 
errores, volverlo a entregar, etc., tu¬ 
vieron la genial idea de que, dado 
que el ordenador es mucho más rá¬ 
pido que el usuario, si se le hacía de¬ 
dicar una pequeña fracción de su 
tiempo a cada usuario, a este le pare¬ 
cería tenerlo sólo para él, pero como 
el ordenador es rápido, podría aten¬ 


der a la vez a muchos usuarios. 

Esta genial idea es el sistema de 
multitarea por partición de tiempo, 
«time-slicing», el más utilizado hoy 
en día, 

Naturalmente, desde entonces 
han progresado los sistemas operati¬ 
vos multitarea, añadiéndose más 
funciones, pero la básica es ésta, la 
partición del tiempo, y vamos a dar 
una idea de cómo se realiza. 

El corazón de la multitarea es el 
repartidos de tiempos de ejecución, 
el ahedulet, es una rutina que se lla¬ 
ma por las interrupciones hardware 
cada cierto tiempo, y decide qué 
programa va a ser ejecutado, salvan¬ 
do los valores necesarios para poder 
volver a comenzar el progrma ante¬ 
rior, y colocando los nuevos del pro- 


CX7 











grama a ejecutar. 

Para aquellos que quieran exami¬ 
nar con un desensamblador el sche- 
duler del QL, ofrecemos una somera 
indicación de las direcciones (hexa- 
decimales) de las rutinas más im¬ 
portantes: 

— $352 entrada de todo tipo de in¬ 
terrupciones nivel 2, comprueba sí 
son de microdrives, disco, etc. 

— $90A entrada de interrupcio¬ 
nes de temporización y scheduter. 

— $936 Comprobación de tareas 
de altísima prioridad {modo siste¬ 
ma). Si se está en ellas no se ejecuta 
el scheduter. 

— $940 a $966 el scheduter propia¬ 
mente dicho. 

— $9DE a §A14 la rutina que sal¬ 
va todos los valores y datos necesa¬ 
rios para volver a reanudar la ejecu¬ 
ción del programa suspendido. 

— $A16 a SA80 la rutina que elige 
el programa que le corresponde eje¬ 
cutarse. 

— $A82 a $AA6 la rutina que co¬ 
loca los valores necesarios para rea¬ 
nudar la ejecución de la tarea. 

— $AA8 a $AC8 una interesante 
rutina de llamada a las listas encade¬ 
nadas de tratamiento de interrup¬ 
ciones. 

Las direcciones indicadas son las 
de la ROM española MGE, en otras 
ROM pueden cambiar. 

El scheduter es el corazón del sis¬ 


tema operativo mulíitarea, pero un 
sistema multitarea necesita mucho 
más que eso, El hecho de que estén 
ejecutándose varios programas a la 
vez puede dar lugar a muchos pro¬ 
blemas, por ejemplo, tomado del li¬ 
bro de Dickens, es fácil imaginarse 
un listado en que varios programas 
escribiesen por impresora a la vez. 

El sistema operativo gestiona la 
utilización de los recursos de! orde¬ 
nador, evitando, en lo posible, que 
unos programas «machaquen» a 
otros, controla la utilización de fi¬ 
cheros, interfaces, etc. También, 
desde el Multics, se incorporan sis¬ 
temas de comunicación intertareas, 
llamados pipes, para facilitar el uso 
del equipo. Los pipes están disponi¬ 
bles en el QDOS, pero no en Super- 
BASIC. Hay rutinas de Qunata que 
permiten utilizar las pipes desde el 
SuperBASIC. 

Por otro lado, en los modernos 
sistemas multitarea, cuando un pro¬ 
grama está esperando la realización 
de una operación de entrada/salida 
o el envío de la comunicación de un 
dato por otro programa, este progra¬ 
ma se detiene para evitar que mal¬ 
gaste el tiempo del procesador. 

Como vemos son muy complejas 
y variadas las labores que debe reali¬ 
zar un sistema operativo multitarea, 
por lo que se suelen implementar en 
ordenadores potentes. Además, al 


ser complejos, su desarrollo es cos¬ 
toso, por lo que normalmente sólo 
se utilizan máquinas caras. Pero tio 
Clive nos puso, como siempre, lo 
inasequible a precios razonables. 

Naturalmente sistemas operati¬ 
vos multitarea hay muchos, empe¬ 
zando por el mítico UNIX y sus va¬ 
riantes, siguiendo con el PICK, OA¬ 
SIS, los Concurrent CPM 86, 286 y 
68K, el Tripos del Amiga, el 68KOS 
y nuestro QDOS. 

Y si hablamos de miniordenado¬ 
res y grandes Ordenadores (main- 
trames), hoy en día no se concibe un 
sistema operativo para ellos sin ser 
multitarea, simplemente por lo me¬ 
nos para el spool de impresora (esto 
es imprimir en ficheros de disco, y 
un programa en multitarea se encar¬ 
ga de imprimir mientras el ordena¬ 
dor sigue trabajando). Realmente 
sería absurdo tener estos equipos 
parados esperandod el acabar de im¬ 
primir. 

Hay muchas variantes de siste¬ 
mas operativos multitarea, de tiem¬ 
po real, multíusuario, etc. Pero va¬ 
mos a ir empezando poco a poco. 

Para aquellos que quieran intro¬ 
ducirse más a fondo en el QDOS, el 
libro recomendado es la Guía del 
Usuario Avanzado del QL por Adrián 
Dickens, publicado por RAMA. 

José M. Guzmán 
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KRIPTON 

RAIDERS 

FUTURE STARS 
SPECTRUM 48 K 


Siguiendo una línea que parece 
estar teniendo éxito en el 
mercado de los juegos para 
Spectrum, Dinamic ha dado a 
luz esta nueva firma, cuyo 
cometido es ofrecer al sufrido 
consumidor nuevos títulos al 
precio de 999 ptas., a la vez que 
da a programadores nóveles una 
oportunidad para triunfar. 

El objetivo de la aventura es, 
tras localizar y recoger los 
cuatro diamantes que se hallan 
diseminados al azar por un 
intrincado laberinto en dos 
dimensiones, alcanzar la nave 
que nos permíta huir de allí. En 
cada pantalla que visitemos nos 
encontraremos cierto número de 
extrañas criaturas que harán 
difícil la tarea, por lo que 
constantemente tendremos que 
hacer uso de nuestro láser. Sin 
duda el mayor atractivo de este 
programa reside, precisamente, 
en la cantidad de disparos que 
podemos llegar a hacer en cada 
partida, acabando con docenas 
de enemigos en muy poco 
tiempo. 

La extructura del juego nos 
recuerda bastante al viejo Jet- 
Pac de Ultímate, pero ei tamaño 
del protagonista es menor, 
mientras que el mapa es más 
extenso. El movimiento de los 
sprites, sin ser malo, deja 
pequeños detalles sin acabar, 
especialmente cuando se 
sobreponen varios de ellos o 
cuando el astronauta es 
destruido. 


El nivel de dificultad es bastante 
alto, como viene siendo norma 
en ¡as últimas creaciones de 
todas las casas. Parece ser que 
quien decide gastar su dinero 
en la compra de un programa 
de este tipo desea que, al 
menos, le dure unas semanas. 
Los gráficos no aportan nada 
nuevo, pero cumplen 
perfectamente con su papel. 


Otro tanto hay que decir de los 
detalles sonoros y de 
presentación, que hacen que el 
juego sea completo en sus 
partes más esenciales. 

Se trata, en definitiva, de un 
buen programa si lo calibramos 
teniendo en cuenta el precio al 
que se comercializa. Muy 
aconsejable para los amantes de 
los juegos de acción. 
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C uando se pensó por 
primera vez en la crea¬ 
ción de un micropro¬ 
cesador «hijo» del po¬ 
pular intel 8080 y se 
empezó a calibrar cuá¬ 
les serian las modificaciones más in¬ 
teresantes que se le podían hacer, 
surgieron, por un lado, voces que 
clamaban por una ampliación del 
númro de registros (de ahí surgió el 
juego alternativo y los índices IX e 


IV), y. por otra parte, las de quienes 
creían necesaria la implementación 
de nuevas instrucciones que au¬ 
mentaran la potencia y la versatili¬ 
dad del nuevo procesador y lo hicie¬ 
ran más cómodo al programador. 
Entre estas últimas instrucciones 
destacan las que permiten trabajar 
con bits independientes en cual¬ 
quier registro o posición de memo¬ 
ria, una de tantas virtudes que ha¬ 
cen al Z-80 el rey de los 8 bits. 

La instrucción BIT permite que 
conozcamos el estado lógico de un 
bit cualquiera en un registro o una 
posición de memoria que direccio- 
nemos con HL. IX o 1Y. El valor del 
bit que nos interesa es copiado en la 
bandera de cero (Z), por lo que si, 
por ejemplo, queremos llamar a una 
determinada rutina, sólo en caso de 
que el bit 3 del registro L) valga 1, po¬ 
demos hacer lo siguientes: 

BIT 3,D 
CALI Z,RUTINA 

Como puede verse, esto resulta 
de especial interés cuando registros 
o posiciones de memoria son usa¬ 
dos como grupos de banderas, al es¬ 
tilo de las variables del sistema 
FLAGS, FLAGS2, TVFLAÜS, etc. 
La principal ventaja es que no es ne¬ 
cesario modificar el valor de ningún 
registro como en el uso de máscaras 










, ,A 



IE MAQUINA 


con las instrucciones lógicas, en las 
que el acumulador resultaba altera¬ 
do. Además el valor del bit de aca¬ 
rreo es respetado, aunque n o pasa lo 
mismo con las demás banderas. 


SETeando y RESeteando un bit 

Existen otras dos instruciones 
que permiten modificar el valor ló¬ 
gico de un determinado bit en cual¬ 
quier registro o posición de memo¬ 
ria que direccíonemos con H L, 1X o 
IV. 

SET lo que hace es poner a uno el 
bit que indiquemos fuera cual fuera 
el valor anterior v respetando los 
bits contiguos. La sintaxis es similar 
a la de BIT; por ejemplo, para poner 
a uno el bit 3 del contenido de la di¬ 
rección de memoria a la que apunta 
HL habría que hacer SET 3,(HL). 
Esto equivaldría a hacer LD A,32 
más OR (1IL) y más LD ÍHL),A; co¬ 
mo podemos ver estas instrucciones 
ahorran bastante, además de reser¬ 
var el valor que tuviera el acumula¬ 
dor. 

RES pone a cero el bit que especi¬ 
fiquemos de forma similar a BIT y 
SET. Para poner a cero el bit 0 del 
acumulador haríamos RES 0,A, lo 
que es equivalente a hacer AND 
254. 


Las instrucciones de manipula¬ 
ción de bits,aunque no son tan utili¬ 
zadas como las de carga o las aritmé¬ 
ticas, cumplen un papel importante 
ala hora de hacer más cómodos y rá¬ 
pidos ciertos cometidos concretos. 
Hay que tener siempre presente que 
existen, de forma que puedan ser¬ 
nos útiles cuando las necesitemos. 


Tiempos de ejecución 

El tiempo de ejecución puede re¬ 
sultar una cualidad importante en 
un programa y a menudod es im¬ 
prescindible su cálculo para ciertas 
rutinas que deben compenetrarse 
entre sí a la perfección. Por ejemplo, 
no podrían funcionar las rutinas de 


NOTACION 

r y r’ = A.B,C,D.E,H d L 
d = desplazamiento Í-12B a 12?) 
n = valor entre O v 235 (1 bytel 

valor entre O >' 65535 Í2 bvtes) 
BC ,DE * HL o SP 


nn 

rr 

qq 

rX 

rY 


AF,BC,DE o HL 
BC * DE*IX o SP 
BC,BE,IY o SP 
b * bit í 0-7) 
oc « condición 

n 4 - 0*8, 16,24,32*40,48 o 56 


BANDERAS 

4 = no alterada 

X= alterada seqün el resaltado de la operación 
O - puesto a cero 

1 = puesto a uno 

1 - toma el valor de IFF (habilitación de i nt errupc i ón > 
? = desconocido 

2 = cero si BC-1 = Q, uno en caso cantear-i n 

3 — uno si A“ í HL) , cero en caso contrario 

4 * uno si B-i=G, cero en caso contrario 














Mnemónica 

ADD 

HL,rr 

ADC 

HL , rr 

SBC 

HL,rr 

ADD 

IX, rX 

ABC 

I Y * r Y 

INC 

rr 

INC 

IX 

INC 

IY 

DEC 

r r 

DEC 

IX 

DEC 

IY 

RLCA 

RLA 


RRCA 

RRA 


RLC 

r 

RLC 

tHL) 

RLC 

(IX+ 4 Í 

RLC 

ÍIY+d) 

RL s 


RRC 

s 

RR s 


SLA 

5 

5 RA 

5 

SRL 

5 

RLD 


RRD 



Banderas 
C Z % S N H 

X * * # O 2 

X X X íí O ? 
X X X X 1 ? 
X * * * O ? 
X * * * 0 ? 
X X X X X X 
X X X X X X 
X X X X X X 
X X X X X X 
X X X X X X 
X X X X X X 
X # * # o o 
X * * * O O 
X * # * o o 
X * * * o o 
X X X X o o 
X X X X o o 
X X X X o o 
X X X X o o 
X X X X o o 
X X X X o o 
X X X X o o 
X X X X o o 
X X X X o o 
X X X X o o 

* X X X o o 

* X X X o o 


Núm. bytes 

1 

2 

2 

2 

2 

1 

2 

2 

1 

2 
2 
1 
1 
1 
1 
2 
2 
4 
4 


s 

(I 


Nüm. est.T 

11 
15 
15 
13 
i 5 
6 

10 

10 

6 

10 

10 

4 

4 

4 

4 

8 

15 

23 

23 


es cualquiera de r T lHL), 
X+dí o (lY+d) como en RLC 


2 18 
2 18 


grabación y carga cassette si no 
coincidieran en ambas los tiempos 
de los bucles de retardo. 

I I cálculo de los tiempos de eje¬ 
cución de una instrucción resulta 
siempre que sepamos el número de 
pasos de reloj o estados temporales 
que necesita dicha instrucción y la 
velocidad a la que corre el reloj en 
nuestro ordenador. En el Spectrum 
la velocidad de reloj es de 3.5 MHz, 
es decir, que en un segundo da tres 
millones y medio de impulsos, y el 
número de estados temporales de 
cada instrucción, así como la forma 
en que las banderas se ven afecta¬ 
das, podéis consultarlo en la tabla 
que acompaña a estas líneas. 

Si en un segundo nuestro reloj da 
3.500.000 impulsos, quiere decir 
que el tiempo de cada ciclo es de I / 
3.5*10 6 , osea, aproximadamente 
.000000286 segundos ó 286 nanose- 
gundos. 




La REVISTA de las computadoras personales que 
interesa tanto al aficionado como al profesional 


ORDENADOR 


La informática al 
' alcance de todos. 

COMPLETA, 
DETALLADA, DIRECTA, 
INNOVADORA... 

Una publicación 
de clara y amena 
lectura. 

Para el aficionado, para 
el profesional. 

Técnica, diversión 
y entretenimiento. 

ORDENADOR 

POPULAR 

la revista que le dá 

a conocer el hoy 
y el mañana de la 
informática. ¡Con las 
últimas novedades 
en el campo de las 
computadoras 
personales! 



Suplemento 

EUE 


Estrategias: 

EL DESPERTAR 
DE SECOiNSA 

NCR 

CONTRAATACA 
PERSONALES 


POPULAR 


¡NO SE QUEDE ATRAS! 



YA ESTA A LA VENTA 


Cómprela en su kiosco habitual o solicítela a: 

= ORDENADOR 

=- popular 


Bravo Muritlo, 377 
Tel.7339662 
28020 MADRID 












































LD A, I 

* 

X 

i 

X 

0 

0 

2 

9 

LD A, R 

* 

X 

i 

V 

n 

0 

0 

2 

9 

LD I , A 

* 

* 

* 

* 

* 

* 

? 

O 

LD R , A 

* 

* 

* 

* 

* 

* 

2 

9 

LD rr,hn 

* 

* 

* 

* 

* 


3 

10 

LD IX f nn 

* 

* 

* 

* 

* 

* 

4 

14 

LD IY,n n 

# 

* 

# 

tf 

* 

* 

4 

14 

LD HL,(nn) 

* 

* 

* 

* 

* 

* 

3 

16 

LD dd,Inn) 

* 

* 

* 

* 

* 

* 

4 

20 

LD IX»(nn ) 

* 

* 

* 

* 

* 

* 

4 

20 

LD 1 Y , í nn J 


* 



* 

* 

4 

20 

LD ( nn ) ,HL 

* 

* 

* 

* 

* 

* 

3 

16 

LD < nn > , úú 

# 

* 


# 

* 

■* 

4 

20 

LD í nn í , IX 

* 

* 

* 

* 


* 

4 

20 

LD í nn ) t I Y 

* 

* 

* 

# 


* 

4 

20 

LD SP , HL 

* 

* 

* 

* 


* 

1 

ó 

LD $P,1X 

# 

* 

* 

* 

* 

* 

2 

10 

LD SP,IY 

* 

* 

* 

* 

* 

* 

2 

10 

PUSH qq 

* 

* 


* 

* 

* 

1 

1 1 

PUSH IX 

* 

* 

* 

* 

* 

* 

2 

15 

PUSH IY 

* 

* 

* 

* 

* 

* 

2 

15 

POP qq 

* 

* 

* 

* 

* 

* 

1 

10 

POP IX 

* 

* 

* 

* 


* 

2 

14 

POP IY 

* 

* 

* 

* 

# 

* 

2 

14 


Por ejemplo, la siguiente rutina: 


instrucciones n. - estados n.' J veces Total 
T ojee. 


XOR A 7 

LD B. 10 7 

BUCLE ADD 4 

A,B 


t 

l 

10 


7 

7 

40 


DJNZ 8 I 8 

BUCLE si B=0 

12 9 108 


si B<>0 




Banderas 






Mnemfinico 

C 

2 


N 

H 

Ntim, bvtes 

Núm* est. 

. T 



JP nn 

* 

4 

4 

4 

4 

4 

3 

10 




JP cc f nn 

4 

4 

4 

4 

4 

* 

3 

10 




JR d 

* 

4 

4 

4 

4 

4 

2 

12 

Si 

cc es 

f a 1 sa 









7 

Si 

rr es 

verdadera 

JR C f d 

* 

4 

4 

4 

4 

4 

2 

12 

Si 

cc es 

falsa 









7 

Si 

rr e* 

verdadera 

JR NC 3 d 

* 

4 

4 

4 

4 

4 

2 

12 

Si 

ce es 

f a 1 sa 









7 

Si 

rr 

verdadera 

JR Z T d 

4 

4 

4 

4 

4 

4 

2 

12 

Si 

cc es 

falsa 









7 

Si 

cc es 

verd ader? 

JR NZ r d 

4 

4 

4 

4 

4 

4 

2 

12 

Si 

cc es 

•Falsa 









7 

Si 

cr es 

verdadera 

JP í HL 4 

4 

4 

4 

4 

4 

4 

1 

4 




JP tlK) 

4 

4 

4 

4 

4 

4 

2 

e 




JP E IY) 

4 

4 

4 

4 

4 

4 

2 

e 




DJNZ d, 

* 

4 

4 

4 

4 

4 

2 

9 

Si 

B =0 










13 

Si 

B< >0 


CALL nn 

4 

4 

4 

4 

4 

4 

3 

17 




CñLL CC p nn 

4 

4 

4 

4 

4 

4 

3 

10 

Si 

rr es 

falsa 









17 

Si 

cc es 

verdadera 

REI 

* 

4 

4 

4 

4 

* 

1 

10 




RET ce 

* 

4 

4 

4 

4 

4 

1 

5 

Si 

cc es 

4 a 1 sa 









11 

Si 

cr 

verdadera 

RE T I 

4 

4 

* 

4 

4 

* 

2 

14 




RETN 

* 

4 

4 

4 

4 

4 

2 

14 




RBT n + 

4 

4 

4 

4 

4 

4 

i 

11 




IN A T (ni 

4 

4 

4 

4 

4 

4 

2 

10 




IN r p iCf 

4 

X 

X 

X 

0 

X 

2 

n 




INI 

4 

A 

7 

? 

1 

7 

2 

15 




I NI R 

4 

i 

7 

7 

i 

7 

2 

20 

Si 

B< >0 










15 

Si 

e=o 


IND 

4 

A 

7 

7 

i 

7 

2 

15 




INDR 

4 

i 

7 

? 

1 

7 

2 

20 

Si 

ÍU >0 










15 

Si 

B=G 


QUT E n í , A 

4 

4 

4 

4 

4 

4 

2 

11 




0UT íC 3,r 

* 

4 

4 

4 

4 

4 

2 

12 




0ÜTI 

4 

A 

? 

7 

1 

7 

2 

15 




0 TIR 

4 

i 

7 

7 

1 

7 

2 

20 

. Si 

SOO 










15 

Si 

B -0 


0 UTD 

4 

A 

7 

7 

i 

7 

2 

15 




GTDR 

4 

i 

7 

? 

1 

7 

2 

20 

Si 

B< >0 










15 

S i 

B=G 





RET 10 I 10 

Total m 

nos da un total de 180 estados tem¬ 
porales, lo que equivale a 180/ 
3.5*10°, o aproximadamente 
.0000514 segundos, es decir, bastan¬ 
te poco tiempo. 

Con el estudio de las instruccio¬ 
nes de manipulación de bits damos 
en este capítulo casi por acabada lo 
que ha pretendido ser una visión ge¬ 
neral del juego de instrucciones del 
Z-80. En capítulos sucesivos inten¬ 
taremos terminar de adentrar al lec¬ 
tor en la estructura lógica del Spec- 
trum aclarando los temas más esen¬ 
ciales para hacerle llegar al punto en 
el que pueda sacarle todo el partido 
a su ordenador. 
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BIT 

b # r 

4 

X 

? 

? 

0 

i 

2 

8 

BIT 

b,(HUÍ 

4 

X 

? 

7 

0 

i 

2 

12 

BIT 

b f ¡IX + d) 

4 

X 

? 

? 

0 

1 

4 

20 

BIT 

b, íIY+dí 

4 

X 

? 

? 

0 

1 

4 

20 

SET 

0 , r 

4 

4 

* 

* 

4 

4 

2 

9 

SET 

b» (Hü 

4 

4 

4 

4 

# 

4 

2 

15 

SET 

b, i IX+d) 

* 

4 

4 

4 

4 

4 

4 

23 

SET 

b, ( I Y + d > 

4 

4 

* 

4 

4 

4 

4 

23 

RES 

b, s 

s 

es cualquiera 

d e r, f Ht_ ) f 



(IX+d) □ av + dl como en SÉT, 


Banderas 


Hnemürj ico 

C 

z% s 

N 

H 

NOm, bvtes 


LD r s r T 

4 

4 

* 

4 

4 

4 

i 

4 

LD r s n 

* 

4 

4 

* 

4 

4 

2 

7 

LD r , íHL} 

4 


* 

4 

4 

4 

1 

7 

LD r * í IX + d) 

4 

* 

4 

4 

4 

4 

3 

19 

LD r , ( I Y + d í 

4 

* 

4 

* 

4 

4 

O 

ú 

19 

LD (HL),r 

4 

* 

* 

4 

4 

4 

1 

7 

LD íIX+d),r 

4 

* 

* 

* 

4 

4 

3 

Í9 

LD (IY+d ) ,r 

4 

4 

* 

4 

4 

4 

3 

19 

LD í HL ),ñ 

4 

* 

* 

4 

4 

4 

2 

10 

LD í IX + d )* n 

* 

* 

* 

* 

4 

4 

4 

J 9 

LD (I Y+d ), n 

4 

* 

4 

* 

4 

4 

¿X 

19 

LD A, ( BC ) 

4 

4 

4 

4 

4 

4 

1 

7 

LD A, { D£ ) 

4 

* 

* 

* 

4 

4 

1 

7 

LD A, í rrn > 

4 

4 

* 

4 

4 

4 

3 

13 

LD (É C) , A 

* 

4 

4 

4 

4 

4 

i 

“? 

LD (DE),A 

4 

4 

4 

* 

4 

4 

! 

7 

LD ( nn ) ,A 

4 

4 

* 

4 

4 

4 

3 

13 


V ALENTE computación! 

MADRID BUENOS AIRES 


PRQDRftfIAfl PAR* DESDE 3,3O0 

lUEGOl < HtatCh Fol ni 4 Ch>n 4 
bnit Cirtridg* H Hkp#r briv* 4 
Ntght Fllqhl 4 •"«,>-#r i »te, 
U TILITWUD B: T*«prirrt « BL Paifrt i 
Or*phl«L « TmlHlt * BL Cottnr t 
«■Pttl * LÍHP 4 P**Cftl 4 Hnnílnr 4 
Forth 4 1CFL i Editor AtiiMblir 4 
Sahara dar ftprltn 4 B. A«trelog*r 
CDtiÉílCIWLEB E Ad*lnl*tr*cIftn da 
Flncia t Moma AcciiuAttr • 

Contabilidad fltnar*! I Archivar i 
L)4* 4 milAtaa Drftnlitr 4 «te* 


spECTftm plü 4 .. ar,PGO 

CQPlABOn 'PHMNJK II-I'.t.M 

Brandas oportunidad** #n pragria** y 
ptrlfirlCM d* BPtETRUH y BL. 
ENVIO* CONTRA REEMBOLSO fi TODA E&P*fo 


Santa Engracia. Bfi T 445 32 0 5 
20010 MADRID f <g> ioleaia 


DISPONEMOS DE TARAS ESPECIALES PARA 

SUS EJEMPLARES DE 







(cada tapa es para 6 ejemplares} 


lódospectrun 

SIN NECESIDAD DE ENCUADERNACION 

^ÉcioÚÑ®^ 

fc50ptos. 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envíelo a; 

Bravo Murillo, 377 

NNKnpmnm t*l 733 96 &2 - 23920 MADRID 


Por favor envíenme . tapas para la encuademación de mis 

ejemplares de TODOSPECTRUM, ai precio de 650 pts más gastos de envío. 
El importe lo abonaré 
□ POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA DE 
CREDITO O AMERICAN EXPRESS' □ VISA □ INTEHBANK 


Firma 


Número de mi tarjeta: \JJ \ [ ] \\ [ ] _Q_J ¡ [ I ] | ] ] [ J | | [ | 

Fecha de caducidad .. 

NOMBRE ..... 

DIRECCION .. 

CJUDAD ....C. P 

PROVJNCIA .... 








































PROGRAMAS 


SISTEMA PERIODICO 

El programa consta de tres partes: 

• Sistema Periódico. Esta opción nos da a elegir entre filas, columnas o grupos. Las filas están 
numeradas de 1 a 7 y corresponden a cada uno de los siete períodos. Las columnas se nombran 
la, 2a,... o Ib, 2b,... o 0 para el grupo de los gases nobles. En la opción de grupos aparecen casi 
todos los grupos convencionales como alcalinos, alcalino-térreos, etc. 

• Problemas químicos. Esta opción comprende dos casos: estructuras electrónicas y pesos 
moleculares. La estructura se halla por la regla de Moeller sin ninguna complicación ni error. 

• Búsqueda de elementos. Se realiza por número atómico, nombre o símbolo químico. En el 

primer caso es mucho más rápido, ya que no tiene que leer los nombres, sino que va 
directamente a la línea DATA donde se encuentran. Si buscamos los datos por el nombre 
tendremos que poner la primera letra con mayúscula y las demás con minúsculas. La búsqueda 
por símbolo requiere que éste se escriba en la forma tradicional, la primera letra con mayúscula 

y la segunda con minúscula. 

Femando Arderius Martín 


10 REM FERNANDO ARQERIUS MARIN 
20 BÜRDER 1: PAF'ER 3! LL5 
25 IIMK 0 

30 CLEAR 64999: DIM c$C3.Íé.> 

40 F0R x-65000 TO 65079 
50 READ a: POPE w,a: NEXT x 
60 DATA 237,75,176,92,121,254, 
32,56 

70 DATA 1.201,120,254,21,56,1, 

201 

SO DATA-205,159,14,197.6,0,9,1 
93 

85 DATA 229,229,120,60.205,15B 

,14,6 

90 DATA 0,9,209,1,0,7,9,235 
100 DATA 9,229,6,4*126*18,21, 18 
105 DATA 21, 37 ,1 ¿a , 248,209,6,4,1 
26 

110 DATA 16,21,i3,21, 37,16,248. 
225 

120 DATA 124,15,15,15,230 * 3,246 

,B8 

130 DATA 103,126,1,32,0,9,119.2 
01 

200 CLS : FRINT INVERSE 1;" 
SISTEMA PERIODICO, "i 

INVERSE 0 

210 PRINT AT 0,4; FLASH la M l M ¡ 
FLASH 0;" -SISTEMA PER!CDICO,";A 
T 10,4; FLASH i; N 2"; FLASH O;" - 
PROBLEMAS QUIMICOS.“5AT 12,4; FL 


ASH 1 \ "3"í FLASH 0;" -BUSQUEDA D 
E ELEMENTOS." 

220 PRINT AT 21,0; PAPER 0 % ¡NK 
3;" FERNANDO ARDERIUS MARIN 

230 PAUSE O: LET ií=TNKEY:f 
240 IF COPE i í 49 DR DCIDE ií>51 
THEN 60 10 230 

250 BEEP .1,30; GO TO 2000*VAL 
i$ 

2000 REM sistema petiüdico. 

2010 CLS 5 PRINT INVERSE 1 s 11 

SISTEMA PERIODICO. 11 : 

INVERSE 0 

2020 PRINT AT 8,4; FLASH 1;"1"; 
FLASH 0; h "- Elementos por Tilas," 
|¡AT 10,4; FLASH 1 ; ,l 2" ; FLASH 0; 11 
— Elementos por columnas.AT 12 
,4; FLASH 1; ,, 3"; FLASH 0;" Elem 
entos por grupos." 

2030 PRINT AT l9,lü;"s para salí 
r.";AT 21,0; PAPER O;" 

2040 PAUSE 0; LET i NKEYTí IF 
THEN GO TO 200 

2050 IF COPE i$<49 OR COPE i*>5X 
THEN GO TO 2040 

2060 BEEP *1,30: GO 10 2O50+5Ú*V 
AL i $ 

2100 CLS : JNPUT "Fila 7íl a 7) 
'ífila: IF Til &< 1 OR fila >7 THEN 


60 TO 2100 

2105 PRINT AT 9,10;"La Tila ":fx 
la; - ' es;": 60 SUB 212ü+fila: PRI 
NT AT 11,0; PAPER O; INK 7swi 
2110 PEER *1,20: INPUT "Otra 7(5 
yn) M | LIME IF K*= l, s" DR 

IK S" THEN 60 TO 2100 
2115 lf x3="n H OR hT="N" 1 THEN G 
□ TO 2000 

2120 GÜ TG 2110 

2121 LET 

"í RETURN 

2122 LET w*= H Li , Be , B ,C ,N . □ , F , Ne 

": RETURN 

2123 LET w*^"Na,Mg,Al ,Si ,P,S,P,S 

,CI,Ar “s RETURN 

2124 LET wí=" K, Ca, Se, Ti ,V,Cr, fin, 

Fe,C d,N i,Cu, l n,Ga,Ge,As,Se,Br,K 
r "; RETURN 

2125 LET wí="Rb,Sr,Y,Ir,Nb T Mo,Tt 
,Ru,Rh,Fd,Ag,Gd,In,5n,Sb,Te,I,Xe 

11 : RETURN 

2126 LET w$="Cs,Ba,La,Ce,Pr t Nd,P 
m , Sm , Eu , Gd , Tb , Dy . Ho , Er , Tfft. Yb , Lu , 
HT , Ta , W , Re , Ds , Ir , Pt , Au , Hg , TI , Pb , 
Bi , Po , At ,Rn 11 : RETURN 

2127 LET wí- "Fr , fta , Ac , Tti, Pa , U, Np 
t Pu,Am,Cm, Bl :,CT,Es, Fm ,Md,No,Lw 

RETURN 

2150 CLS : INPUT "Columna ? "; L 







































infoúiss.a. 


LE OFRECE LOS MEJORES LIBROS 
PARA SU ORDENADOR 



P.V.P. 750 PTAS. 

OVA INCLUIDO) 

Descubre los misterios de la 
programación de una forma 
sencilla, con ejemplos, 
programas y organigramas. 

(110 páginas, tamaño 13,5 x 21) 



P.V.P. 2S0 PTAS. 

(IVA INCLUIDO) 

Un libro especialmente 
dedicado a los que se inician 
por vez primera en el mundo 
del Spectrum, 

(100 páginas, tamaño 13,5x21). 



P.V.P. 900 PTAS. 

(IVA INCLUIDO) 

Un compendio de los 
programas más diversos con 
los que podrá aprender 
jugando las importantnes 
características del BASIC. 
(258 páginas, tamaño 
15,5 x 21,5). 



P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Con utilidades, juegos 
exploxivos y gráficos 
dinámicos que lleva al BASIC 
hasta el mejor 
aprovechamiento de sus 
posibilidades. 

(200 páginas, tamaño 
15.5 x 21,5). 


P.V.P. 800 PTAS, 

(IVA INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 
ordenador. 

(108 páginas tamaño 
13.5 x 21,5), 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Muestra una visión más 
completa del correcto 
fuñe ion amiento del juego de 
instrucciones del C-64. 

(108 páginas, tamaño 
13,5 x 21,5). 


CUPON 
DE PEDIDO 

enviara: 


C/BRAVO MURILLO, 377 
28020 MADRID 



COPIE O RECORTE ESTE BOLETIN DE PEDIDO.: 

DESEO RECIBIR LOS SIGUIENTES TITULOS: 

15 HORAS CON EL SPECTRUM (P.V.P. 750) □ 

LOS MEJORES PROGRAMAS PARA EL ZX SPECTRUM (P.V.P. 900) □ 

LOS MEJORES PROGRAMAS PARA EL COMMODORE 64 (P.V.P. 800) □ 

EL 64 MAS ALLA DEL MANUAL I (P.V.P. 800) □ 

EL 64 MAS ALLA DEL MANUAL II (P.V.P, 800) □ 

(más 100 ptas, de gastos de envío). 

El importe lo abonaré POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA 
DE CREDITO □ American Express D Visa O Inteíbank D 

iTTTTD 


Número de mi tarjeta: Q 




NOMBRE _ 

CALLE_ 

CIUDAD_ 

PROVINCIA 


C, P, 

























































INE p£í IF LEN p f >2 THEN GÜ TG 


(l cárbonDide D &" THEN LET wr= ,, C T S 
i,6e,Sn,Pb M : BO TO 2300 

2214 IF gí-“ni tragenai deac" QR g 
^“Nitrógeno! déos" THEN LET wí= 
"N T P,As,Sb,Bi 11 : GO TO 2300 

2215 ÍF gí="anf i genos" OR □it-=”ñn 
fi genos" THEN LET wí="D,fi,Se 1 T 9 
,Pq m : C30 TD 2300 

2220 FOR x=2 TO 12: F'RINT AT x ,0 
; PAPER 2;" 

f ’: NEXT m 

2221 F'RINT AT Ci t O; "Los grupos po 
5i bles son: " ; PAPER 2; INh 6; J ■ " 
Aldalinas"'"filcálino-terreas"'"T 

erreos.Car bQnüidéüs" '"Nitrogen 

oí déos " ' "Anf i genos*.Halógenos" ' 

"Gases nobles" J "T í erras raras"" 
Lantan idos" f " Acti ni dos"' 


" e LET s: t =il sspspedpsdpsf dpsf dp" : 

LET dt- H 1 131315315317531753" 
4275 FOR K-l TO 19 
4280 LET Hítx)=e*íx)+sttx) 

42B5 LET da)=VAL dííiO*^ 

4287 LET cont^ont+d íx i 

4290 IF cant=n THEN GÜ TD 4300 

4295 IF cont>n THEN LET sdb^a^d 

<x): GD TD 4299 

4299 NEXT >i 

4299 LET d<*)-n-Ccont-sobra> 

4300 LET e=i: FOR y=l TO w 
4302 LET fil=fi1+4: LET e=-e 
4305 BEEP . 01 , e* tINT <RND*3üV) : 
PR1NT AT 7 +co1, f i 1s INh cqlorfxl 
i y >; INh color+5;d(y) : IF i i l 25 

THEN LET fil-0: LET toL=coL+I 
4310 NEXT y 

4315 F'RINT AT 2,1; M -La estructur 

ñ electranita del.elementa de 

num, atómica ":n; " ei^s" 

4320 INPÜT "Otra ?<s/n> LINE 
q t-z IF qí^"^" OR q3—"S*' THEN GO 
TO 4250 

4330 IF qT-'YF 1 ÜR qí= ,l N" THEN C 
LEAR : GÜ Tü 4000 
4340 GO TG 4320 
4450 CLB : INPÜT "Compuesta ? 
LINE y*s LET 1=LEN y*: IF (1/3) 

■ > i NT a/3) THEN GO TO 4450 


2160 IF p-t—" la" THEN LET wí="H 
LiNaK RbCsFr" s 00 Tü 2102 

2161 IF pí= l, 2a" THEN LET w*=;" 
BeMgCaSrBaRa": GO TD 2102 

2162 IF p*="3a" THEN LET w*-* 

SeY LaAc": GO TO 2102 

2163 IF pí="4a" THEN LET Wf= fl 
TlZrHfCeTh": GÜ TÜ 2102 

2164 IF pf="5a" THEN LET W í=" 

V NbTaFrPñ"? GO TO 2182 

2165 IF pí="6a" THEN LET wí^" 
CrIlaW NdU GO TÜ 21B2 

2166 IF p*-"7a" THEN LET wí=" 
MnTcRePmNp": GO TD 2192 

2167 TF p:f-"Ba" THEN LET ct(l) = 

" FeRuOsSmPu"! LET cí<2)=" 

CaRhlrEuAm": LET cS <35 
NiPdPtGdCm": PR1NT AT 7,7; "La 
columna 8a es:": FOR x-1 TO 3: 
LET w$stí(K) j POR y= 1 TD LEN w-í 
STEF 2: F'RINT AT 1 0+ < y/2 > , 11 + < x * 
2); PAPER 0; INh (4+x);wiíy Tü y 
+ 1): NEXi y: NEXT BEEP .1,20: 
GO TG 2190 

2168 IF pt- lt lb" THEN LET w*=" 
CuAgAuTbBk": GO TO 2182 

2169 IF pí=" 2b" THEN LET wí=" 
ZnCdHgDyCf": GO Tü 2182 

2170 IF p-í=" 3b" THEN LET wí=" 

B AlGaLnTl HaTs 1 ' l GO TO 2132 

2171 IF p$-"4b" THEN LET wí= rl 
C Si GeSnPbErFm' 1 : GO TO 2132 

2172 IF p$="5b" THEN LET 

N P AsSbBiTmMd": GO TD 21Q2 

2173 IF q -f—" 6b " THEN LET wí=" 

Ü S SeTeFaYbNp": GÜ Tq 2132 

2174 IF' pÍ-"7Li iH THEN LET wí-" 

F CIBrI ALLuLw": GO TD 2182 

2175 IF p$-"0'- THEN LET HeN 

@ArKr¡CeRnHñ??": GO TÜ 2102 

2100 Pftl NT 11 Lds grupas pos ib 
les san: " ‘ ; PAPER 2: IMh 6; " I.a2 

a3a4a5a6aGa Ib2b .:-b4bbb6b7b y 0"s 
BEEP , 1,-30: F'RINT JO;" 

pulsa tecla. " : PAUSE 

Os 00 lü 2150 

21E32 ÜLS : PRINT AT 7,7; "La colu 
mna ": pií 1 ; " es: " 

2104 FOR TD LEN wl STEF 2 

2186 PRINT AT lO+íít/2) , 15; PAPER 
O; INK Tü >: + í) 

2188 NEXT BEEP .1,20 

2190 INFUT "Otra columna ?ís/n) 

11 E LINE :<*■: IF ÜR «Í^’S 11 

THEN GÜ Tü 2ISO 

2192 IF k T-"’n" ÜR ;-íÍ= ,, N m THEN G 

0 TO 2000 

2194 GÜ TO 21 90 

2200 ÜLS s INPÜT "Grupo ? "; LlN 
E 

2205 IF g í :=i| al cal i nos " ÜR gT="AI 
calinos" THEN LET iví : = "H , Li , Ma , K 
f Rb T Ce,Fr"; Sü Tü 2300 

2206 IF gí-"al cal ino-terreos" OR 
gít“ ,r Al cal i no—ter reos" THEN LET 
w^="Be,Hg,Ca T Sr,Ba,Ra M s GO TO 2 

300 

2207 lt gT-"gases nobles" OR g^'= 
"Gases nobles" THEN LET wf="He, 
Ne,Ar,Kr,Xe,Rn": GÜ TD 2300 
22<!iB IF g4 ~' r hal ágenos" DR g$="Ha 
1ogenos" THEN LET wí-'T „Ci.I,At 
": GO TO 2300 

2209 IF gí : ="t Lertas raras" OR q:T 
= Ji Ti erras raras" THEN GÜ SUe 30 
00: LEI wí^k-ts GD Tü 2300 

221 0 IF gl="lantanidas" ÜR gí="L 
antani dos" THEN Qü BUB 3000 : LE 
T wi=k#ci TO LEN kt/2) ; GÜ TD 23 
00 

22 1 1 IF g^= p, acti ni dos Jl ÜR gT="Ac 
ti ni dos" THEN GD SUB 3000; LET 
wí=k*(LEN kí/2 TD LEN kS): 30 TO 
2300 


4455 DIN -f (5> : DIN k C5) s 
THEN GÜ TD 4450 
4460 LET o-O 

44fa 1 FDR :u=l Tü 1 BTEf 3: 
0 + 1 

4462 IF yí(x+ir®" 11 THEN 

:=y$C>;); GÜ Tü 4464 

44ü3 LET tT-yí us )+yí (x + 1) 

4464 FÜR g=i Tü 105 

4405 REST0Fí;E 9000+g 

4466 REAÜ n,n$ r m,vf,r, 


2230 BEEP .1,-30: PRINT /O;TAB 1 
0; Jl pulíatt tecla.": PAUSE Oí CL3 : 
GG TD 2200 

2300 CLB : LET fil=D: LET col=10 
: LET e=i 

2310 FÜR * = i TD LEN 

2315 LET fil=fi 1+1 í LET e=-® 

2320 BEEP .01,e* íI NT (RND*30>): 
F'RINT PAPER 0; IMk 7; AT col ? fil 
{x>: IF Til>30 THEN LET fi 1 = 
O: LET coi=COl+l 
2330 NEXT x 

2540 PRINT AT 6,Og"El grupa de I 
os ";gí;" es:" 

2350 INFUT "Otra ?ts/n) LINE 
wí: IF ¡-¡^^"s" ÜR xí= ,É S" THEN GO 
TO 2200 

2360 IF x^'‘ri" DR xÍ= ,r N 1 ' THEN G 

O Tü 2000 

237ü GG Tü 2350 

3000 LET k t=" La , Ce , F'r T Nd , Pm , Gm , 
Ell , Gd , Tb , Dy , Er , Tm, Yb , Lu * Al , Tti, P 
a, ü , Np, Pu *ftm, CiTi , Bk , Cf , Es, Fm, Md , 
No,Lw"; RETURN 
4000 REH problemas químicos 
4010 CLB : PRINT AT O,Oí INVERSE 
1; " PR OBLE MAS ÜUIMIGO G * 

11 ; XNVERSE 0 

4020 PRINT AT 9,4: FLASH 1s " 1" : 
FLASH O;"- ESTRUCTURA ELECTRONIC 
A, JI ;AT 11,4; FLASH FLASH 

0; 11 - PESOS MOLECULARES. " ;AT 19, i 
ü;"s para salir.":AT 21,0; PAPER 


4467 IF n:i=t* THEN GO TÜ 4470 
4 469 NEXT g: 30 TÜ 4450 
4470 LET f <o)=1MT Cm + .5) 

4472 LET k:ío)-VAL yfí'w+2^ 

4475 NEXT x 

4477 LET pesero 

4480 FOR fí»¿ TD o+l 

£ \495 LET p üs¡o=p ( y. ) * k Oí > 

4490 NEXT x 


4495 BEEP .1,20; PRINT AT 3,0; 

La masa del compuesta ";yí; "es: 
" * ' H ";pesc; p| u>m. a. 11 

4500 INPÜT "Otra ?ís/n» 11 ; LINE 
¡;í: IF >sí="s" OR :;T-"S PI THEN GO 
TO 4450 

4510 IF xí=-n" DR írí^'N 11 THEN G 
ü TÜ 4000 

6000 REM búsqueda de elementos. 
6010 CLB 

6020 PRINT INVERSE 1;" BUSO 

UEDA D£ ELEMENTOS, "; ÍNVERS 


6030 PRINT AT 8,2; FLASH U"l": 
FLASH O;- -BUSQUEDA POR NUM.ATOM 
ICG. " ; AT 10,2? FLASH 1: !J 2": FLAG 
H O;" -BUSQUEDA POR NOMBRE,";AT 
12,2; FLASH FLASH 0; " * BU 

5QUEDA FÜR S^MB.QUIMIC□a , 

6040 F'RINT AT Í9,10;"s para salí 
r. " : AT 21,0; 


6050 PAUSE 0: LET Ü^INKEYÍ: IF 
ií = "s" ÜR i f - '"S" THEN GÜ Tü 200 
£060 IF CODE i1<49 GR CODE i$>51 
THEN EO TQ £050 

6070 CLS ; BEEP .1,30: 60 TÜ 700 
Ü+100*VAL i $ 

7100 INPÜT "N. eitüiniLp? " 3 n 
7110 IF n<0 ÜR n >105 THEN GO TÜ 
7100 

7120 RESTÜRE 9000+n 

7130 READ n,ní,mí,m,vi,r*c2,v,f2 


4030 PAUSE 0: LET i:P=1NKEYÍí IF 
ií= il 5 ” o* THEN GO TO 200 

4040 IF CÜDE i^-:49 DR CODE lí 50 
THEN GD TO 4030 

4050 BEEP „1*30: GO TD 4050+200* 
VAL ií 

4250 CLS ; INFUT "Numera itainico 


4255 IF n<0 OR n>105 THEN GD TO 
4250 

4260 DIM xí (19,2a DIM d<19): LE 
T cont=0: LET fil=0: LET color=0 
: LET cal—O 

4270 LET 1223343454564567567 


2212 IF g f =" terreas" OR gí =''Terr 

eos" THEN LET wí= ,, B , Al , Ga , In , TI 
": 60 TG 23.00 

2213 IF gí="Carbonoideas" DR gí= 


7140 GU TO 8000 
7200 INPÜT "Nombre 1 
7210 FDR k=1 TÜ 10: 
7215 RESTDRE 9000+: 


LINE gí 



7220 RLAD n t ní í (ní,m,ví,r l i; 2 1 v,f 2 
T e: 1F gi--m$ THEN GQ TD 8000 
7230 NEXT >: 

7240 PRINT JO; " No estü 

elemento pulsa t 

fe?cl*" s PAUSE 0: CLS s G0 TG 7200 

7400 INPUT “Btmba!o? "; LINE sí 
7410 FOR * = 1 TO 105 
7415 RESTORE 9000+x 
7420 READ n,ní,m*,m t v$,r,c2,v,P2 
1F THEN BP TQ 8000 

7430 NEXT >! 

7440 PRINT ¿0;" Np existe e?s 

* timbal o pulsa t 

etla"* PAUSE Os CLS 5 PQ TD 7400 

8000 BPRDER Os PAPER Os CLS : IN 
K 7a FOR m-0 TÜ 3: PRINT AT m t Ü| 
PAPER 1?" 

NEXT x 

E3010 FOR x<=4 TQ B: PRINT AT , 0 3 
PAPER 4:" AT X,22; 

M 11 5 AT >f, 1 i ; PAPER 2; 11 

11 : NEXT í< 

8020 LEI c-7-LEN m$/2 

8030 PGKE 23729 T 1 

804-0 FDR f“I TO LEN mí 

8050 PDKE 23720,<f+e>*2 

Bom PRINT PAPER 1 ; AT l,íf+c)#2 

Sfflí íf> 

0070 RANDONI2E USR 65000 
8075 NEXT f 
SOBO PDKE 23729, 6 
8090 LET c^B-LEN ni 
B1Ü0 FOR fa¡i TD LEN n* 

0110 PDKE 23728,(f+c>*2 

B12Ü INF 7: PRINT PAPER 2;AT 6 , 

íf+c)+ 2 ;ní<f) 

B130 RAN0OMIZE USR 65000 
8140 NEXT T 

SISO PRINT INF Oi PAPER 4 íAT 5, 
0; “NUMERÜ 11 ; Al 6,0; "ATOMICO; " ; n ; A 


5 e L e n i o 

M U M E F: O p e o pi" f n m J 

ATOMICO: 34 CO: 78.96 

ti 1“ 

UñLENCIR3 
Kz* *4- .■<*■ ^ 

R pi d x o h t o m x c o u o l. u m e h r t o m x c o 

1 - 4- Xfe B B 

RHD XO C OURUE NTE RFIN X D VH D 

1 . !£■ -S03 

E U E: CT R O N E G RT X U X O R D : 2 . 4. 


T 5,22; ,F PES0 ATOM 1 11 ^ AT 6,22; "CG; 
Ir ? m 

8160 FDR y=9 TO 12= PRINT Al :< , 0 
; PAPER 0;" 

l, j NEXT x 

B170 PRINT AT 9,12; PAPER 0; INk 
7;"VALENCIAS";AT 11,16-LEN vT/2 
; v J S 

8100 FDR y = 13 TQ 16: PRINT AT K , 
0; PAPER 7% " »-at 

k,1¿í PAPER 1;" 

M s NEXT v, 

B190 FOR >{=17 TO 20; PRINT AT X, 
Os PAPER 1 ;» "-at 

PAPER 7; 11 


NEXT y, 

8200 PRINT AT 13,0; PAPER 7; INF 
1;"RADIO ATOMICO";AT 14,5;r;AT 
17,16; 11 AF INI DAD " : AT 10,21;T2 
0210 PRINT AT 13,16; PAPER 1 ; IN 
f. 7; “OOLUMEN ATOMICO 11 \ AT 14,21 ;v 
3 AT 17,0;"RADIO COVALENTE";AT IB 
, 5q c2 

8220 PRINT AT 21,Ó; PAPER 7; Bftl 
BHT I; 11 

II 

8230 PRINT AT 21,0; INK 0; PAPER 
7; &RIBHT 1: "ELECTRONEGATIVI DAD 
s " S e 



SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 






Telf. (91) 7337969 

7 días por semana, 24 lloras a su servicio 


SUSCRIBASE A 


lodospectniti 


J 














I 


8240 INPUT "Otra ^ís/n> LÍNE 
1F = GR nt="S" THEW PA 
PER 3: CLLi j BÜRDER 1: INK O: GO 
TO 6000 

8250 IF >i$="ri H OR NT 1 1 HEN P 

APER 3: CLS : BÜRDER 1= INF Oi G 

a TO 200 

8260 GO TO G240 

9001 DATA 1,“H","Hidrogena",J- 00 
B,"+l t -l", O,0,2P7, 14.1 ,-74.5,2. 1 

9002 DATA 2 , "He" * 11 Hel id" , 4.”0" , O 
,0.83,31,0,21*2,0 

9003 DATA 3 . "I_i 11 , "Litio" , 6. 94, 11 1 
”,1.55,1,34,13.4, -59.0,1 

9004 DATA 4, "Be" , "Beri lia" ,9.01 , 
”2",1-12,0.90,5.0,-37,6*1.5 

9005 DATA 5, "£<” , J| Bar a" , 10. 01, " 3 M 
,0.98,0.02,4,6,“17.3,2 

9006 DATA 6, "C "/'Carbono" , I 2*01, 
"+—4/2”,0.914,0.77,5.3,-122.3,2. 
5 

9007 DATA 7, "N"" Ni troQ&nd” . 1 4 . O 
i,"S/+-3/2/4",0,92,0*75,17.3,20. 

i í -■ 

9Ü0B DATA 8 , " Ü 11 , " 0;í i geno" , 16 , 'I 
/“2",0,0.73,14.0,-141.3,3.5 

9009 DATA 9, 11 F " ," F1 uor 11 , 19 , " - i" , 
0,0.72,17.1,-337.4 

9010 DATA 10 , "Ne" , "Neón 11 ,20 , 10 , " 
O" ,0,1/M, 16.8,28.9,0 

9011 DATA 11,"Na"."Sodio".22.99, 

11 1”, i*90,1.54,23. 7, 52.2,0-9 
901.2 DATA 12. "Magnesia 1 /24.. 

31,“2",1.60,I.3u,14.0,21.2,1.2 
9013 DATA 13,"Al H ."Aluminía",26. 
98, 11 3 ",1.43,1.18,10.0,- 19.3,1.5 
‘■■014 DATA 1 4 , " Si " , 11 Si 1 i £ i o " , 28. 0 
9, M 1 ”4" , 1.32,1,11,12.1,-131,1.8 

9015 DATA 15, 11 P" . "Fosforo” , ':0* 97 
, "5/+ -3 1 " , 1,28,1.06,1 7.0, -60.3,2. 

1 

9016 DA 111 16, "S" , " Li'í'rft" , >2. 06, 
" 6 / ■ 2 /4 " , 1.2 • h U o V , i 3- 196.8,2 

. 5 

9017 DATA 17, "Cl'V 1 Cloro'”,35, 45. 
"+-1/7/5" ,0,0.. 99,18. 7-,-349.2,3 

9018 DATA 10, "Ar 'VArgón 4 ' ,39. 95, 
,l 0%0,1,74,24.2,35. 7,0 

9019 DATA 19,"K","Potasio",39.lu 
, H 1 ",2.35,1.96,45.3,-45.4,0* 8 

9020 DATA 20,"Ca","Calcio",40.08 
, "2",1.97,1.74,29.9,1.S6,1 

9021 DATA 21,"Se","Escandio",44. 
96,"3" , 1.62,1,44,15.0,70.5,1.3 

9022 DATA 22,"Ti"*"Ti tañí o",47.9 
0,-4/3",1.47,1.38,10.6,1.93,1.5 

9023 DATA 23/'V V Vanadi □" ,50.94 
T "5/4/3/2”, 1,34,0,0.35,-60.8,1.6 

9024 DATA 24 , " llr ” , " Cr amo 1 , 52 , "3/ 
6/2”,1.30,0,7.23,93.5,1*6 


9025 DATA 25. 'Fin ", "Manganeso " ,54 
.94, 11 2/7/3/4/6" ,1.35,0,7-39,93*5 
,1.5 

9026 DATA 26,"Fe","Hierra",55.G5 
,"3/2",1.26,0,7.1,44.5,1.0 

9027 DATA 27 , " Co " * "Cabal tp'“ , 58. 9 
3,"2/3” , 1.25,0,6. 7,-102,1.3 

9028 DATA 20, "Mi", "Níquel”, 58. 71 
,”2/4/3",1.24,0,6.6,-156,1.8 

9029 DATA. 29 , " Cu ", "Cafar e " . 63. 54 , 
”2/1",1.28,1.38,7.1,-173,1.9 

9030 DATA 30,"7n","Cinc",65.37," 
2",1.38,1.31,9.2,8.7,1.6 

9031 DATA 31„"Ga" T "Gal 10 ".69.72, 
”3",1.41,1.26,11*8,-35,3,i.6 

9032 DATA 32 *"Ge"."Germán i a".72. 
59 T "+-4/2",!.37,1.22,13*6,-139,1 

, B 

9033 DATA 33 , " As " , 11 ñr sen i ca" , 74. 
92,"S7+“3",1.39,1.19,13.1 ,-103,2 

9034 DATA 34,"Se”,"0£len i o",78,9 

6, "6/4/-2",1*40,1.16,16.5,-203,2 

. 4 

9035 DATA 35,"Br","Broma ", 79.91, 
"+-1/5",0,1.14,23.5,-324.1,2.3 

9036 DATA 36 , " kr " *”Cr i p ton " , 83, 8 
0, M 0",0,1.89,32.2,40*5,0 

9037 DATA 37,"Rb","Rubí di□",85.4 

7, " 1 11 ,2.48,2. 11,55.9,-37. 6,0.8 

9038 DATA 30,"Sr","Estranci a”,8 7 
.62,"2',2,15,1*92,33,7,145,1 

9039 DATA 39. 11 Y" , ll Ytri □“ ,80.91, " 
3” ,1.70,1.62,19, 8,38* 6,1 *3 

9040 DATA 40, " Zr" v LI Ci rconm" ,91 . 
22,"4/3/2”,1.60,1.40,14.1,“43.S, 
1.4 

9041 DATA 41,"Nb","Niobio",92.91 
, M 5/3/4/2”,1.46,0,10.0,-109,1.6 

9042 DATA 42 f ir Mo" ,Mot i bdeno" , 95 
. 94 , ”6/3/5/4 11 , 1.39,0,9. 4 T —114 t 1. 
0 

9043 DATA 43, "Te ” ,”Tecnecia" ,99, 
"7/6/4”,1.36,0,0,-95*5,1*9 

9044 DATA 44,"Ru","Ruteni o”,101. 
07,"3/4/8/6/2",1.34,0,8.3, 145,2 

9045 DATA 45 , r, Rh " , ”Rpdi □ " , 102. 91 
i"3",1.34,0,8.3,-162,2-2 

9U46 DATA 46 , Pd 11 , " Pal adi p” , 106. 
4 , "2/4/3 11 , 1 * 37 , O , 0 * 9 , -98. 5,2. 2 

9047 DATA 47 , " Ag 11 , " P1 ata 11 , 107. H7 
,"1/2",1 * 44, l .53,10.3,-I93,1.9 

9048 DATA 48. ”Cd " , " Cadnn a" , .1 12.4 
0, "2/1 ", 1.54,1.48,13.1,26.1,1.7 

9049 DATA 49,”InIndi o",114*82 
,"3”,1.66,i.44,15.7,-19.3,1.7 

9050 DATA 50, "Sn"/ 1 Es tan a", i 10.6 
9,"4/2",1.62,1-41,16.3,-99,5,1.8 

9051 DATA 515b ","Antimonio",12 
1.75,"+-3/5" T 1.59,1.30,18.4,-90. 
5,1.9 


9052 DATA 52,"Te","Teluro",127*6 
O, '’4/6/ —2 1 ,1.60,1.35,20.5,-189,2 
. 1 

9053 DATA 53 , "" t " , " lado" , 126.90, ” 

+ 1/5/7" , O , i i j' , 2 5■7 295 *jí,2*vj 

9054 DATA 54,"Xe","üenan",131.30 
O",0,2.09,42 *9,43.5,0 

9055 DATA 55 , "Cs 11 , "Gesi o" , 1 32.91 
, " 1" , 2.67,2.25,70,-36.7,0- 7 

9056 DATA 56 , "Ba " , "Bar i a” , 1 37. 34 
,"2",2-22,1.98,39,46.4,0.9 

9057 DATA 57,"La","Lantano ",i 38. 
91,”3",1.87,í.69,22.5,-53.1,1.1 

9058 DATA 58, 11 Ce" , "C@r io" , 140. 12 
, "3/4" ,i. 81,i.65,21.0,0,1* i 

9059 DATA 59,"Pr","Frasead l mi□", 
140.91,"3/4",1.82,1.65,20.8,0,1* 

1 

9060 DATA 60, 11 Nd " , ”Nec3di mi , 1 44 
. 24 , " 3 11 , 1 - 02,1.64,20.6,0,1.2 
906 1 DATA 61 4 " Príi" , "Pr ornee i a 11 ,1 47 
, "3% O ,0,0,0,0 

9062 DATA 62," Sm 1 ', ” Samar i p" , 150. 
35, "3/2",1.81,1.66,19* 9,0,1.2 

9063 DATA 63,"Eu n , "Eurapio 11 , 151. 

96, "3/2",1.99,1*85,28.9,0,0 

9064 DATA 64 , ll Gd 11 , "Gadol i n í o" , 15 
7. 25,"3",1.79,1 * 61,19.9,0,1. L 

9065 DATA 65,"Tb","Tprbio",158.9 

2, "3/4",1.80,1.59,19.2,0,1.2 

9066 DATA 66, N Dv","Disprosio 1 .16 
2.50,-3",1.00,1.59,19.O,0,0 

9067 DATA 67,"Ha","Holmio M ,164.9 

3, "3",1.79,1*50,10.7,0,1*2 

9068 DATA 68,"Er","Erbi o”,167*2á 
, '' 3",1.70,1*57,18*4,0,1*2 

9069 DATA 69,"Tm","Tal i a",168.93 
,"3",1*77,1 * 56,10.1,0,1*2 

9070 DATA 70,”Yb-,”Yterbi□”,173, 
04,"3/2",1.94,1.70,24.0,0^1.1 

9071 DATA 7 1 , "Lu 1 " , " Lutec i a ,J , 1 74 H 

97, "3”,1.75,1.56,17.B t G,1.2 

9072 DATA 72, "H-f - , " Haf nio" , 170. 4 
9,"4/3/2”,1.67,0,13.6,60*3,1.3 

9073 DATA 73 T " T a ' 1 * ” T an tal j. a " , 180 
.95, "5" . 1.49,0, 10. 2,-14.4, 1.5 

9074 DATA 74 , "W" , "WoMrami u" ( 103 

.85,"6/5/4/2",1.41,0,9.53,-119.1 
*7 

9075 DATA 75,"Re","Reñí a",186*2, 
"7/6/4",1.37,0,8,05,-36.7,1*9 

9076 DATA 76,"Os”,"Osmio", 190-2, 
11 4/0/6 / 3/2 " , J *35,0,8.43,-139,2.2 

9077 DATA 7 ", Ir " * " I r i U i. □ ",l 92. 2 
,"3/4",i.36,0,8.54,-190,2.2 

9078 DATA 70 , " Pt ” , " P1 at i no'M95* 
09 , "4/2/3” ,1.39,0,9- 1 0 , -247,2.2 

9079 DATA 79, " Au" , "Oro" , 1.96* 97, " 
3/1",1.46,1.50,lú’2, 270,2.4 
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9080 DATA 8.0, "Hg" , "Mtercur 1 o" , 200 

9008 DATA 08, "Ra \ "Radio" ,226, "2 

9097 DATA 97, H Bk M 1 11 Berkel i □" ,247 

■ 59 , "2/1 11 ,1.57 ,1*49 , 14.8,18.6,:1. 

",0,0,45,0,0.9 

, 11 3/4" ,0,0,0,0,0 

9 

9089 DATA 09,”Ac","Actini□",227 , 

9098 DATA 98, "Cf ,a , "Cal i f íarnio" ,2 

9081 DATA 01, "TI", "Taho" ,204-37 

"3" T 1.83,0,0,0,1.1 

51,"3",0,0,0,0,0 

í "3" ,1,71,1.40,1,7.2*30. 4, i-S 

9090 DATA 90, 11 Th“ * "Torio" ,232.-04 

9099 DATA 99 , "Es" T IF Ei nateni o" , 25 


,"4/3/2",1.80.1.65,19,9,0,1.3 

4. "3".0.0.0,0.0 

9082 DATA 82, "Pb 11 , "Pl □mo 11 ,207.19 



,"2/4",1.75,1.47*13.3,—99.3,1.0 

9091 DATA 91 , " Fa 11 , "Fr otoact i ni □" 

9100 DATA 100,"Fm","Fermio M ,253, 


,231,"5/4",1.61,0,15.0,0,1.5 

" " ,0*0,0,0,0 

90 B 3 DATA 83, "Bi" , 11 Bismuto ",20B. 

9092 DATA 92,"ü","Uranio",238.04 

9101 DATA 101, "Md" , "Mendelevi p 11 , 

9S,"3/S”, 1 . 70,i.46,21.3,-91.H,1, 

9 

, l, 6/4/3/5" , i - 38 . 1 . 42,12.5,0,1.7 

256,"3",0,0,0,0,0 

9094 DATA 84 , "Pq" , O'RóIPnló M , 210 , 

9093 DATA 93 , "Np % 11 Neptuno " ,237 , 

9102 DATA 102,"No" , "Nobel i o",254 

"2/3/4/6/2",1.76,0,22.7,-127,2 

"5/476/3",1*3,0,21*1 , 0 , 1.3 

, "3/2",0,0,0,0,0 


9094 DATA 94 , 11 Fu 11 , 11 P1 utoni o" , 242 

9103 DATA 103, ,J Lt>i ,p , "Laurencio" ,2 

9005 DATA 85,"At'^"Astato",210," 

, ÉÍ 4/6/3/5" ,1.51,0,0,0,0 

57,"—",0,0,0,0,0 

5/3/1" , 0 *0 , 0 , -270,2.2 



90B6 DATA 86 , " Rn" , "Radon" , 222 , «0 

9095 DATA 95 , 11 Ain" . " Amer i c i o" , 243 

9104 DATA 104, "Ku" , "Kuretiatovio" 

" ,0,2.14,0,0,0 

, "3/4/5/6" , 1,73,0,0,0,0 

,0,,0,0,0,0,0 

9087 DATA B7,"Fr 11 , " Fr anci p ,J , 223 * 

9096 DATA 96 , "Cm" , 11 Cun o" , 247 , "3 

9105 DATA 105, "Ha" , "Hahni □*' ,0 , 

"i",0,0,0,0,0.7 

" , 0,0,0,0,0 

“,0,0,0,0,0 


MASTERMIND 

La versión de este conocido juego realizada por Juan 1 . Perea nos da únicamente seis intentos 
para acertar ta combinación correcta. Pero si la paciencia no es vuestro fuerte, podéis alterar el 

programa para que admita un máximo de oportunidades. 

Dispone de opciones para televisor en color o en blanco y negro y la presentación es 
inmejorable. Además, para que todos os decidáis a teclearlo, el listado es considerablemente 


breve. 


1 REM MasterMlHD 1985 Perea 

130 IF INKEYÍ^ 1 ” THEN GQ TO 13 

1320 NEXT qz NEXT Tí INK 8: Gü S 

8o i tware 

o 

UB 5000 

10 LET bn-2¡ RE8TORE i FOR f-U 

140 PLS í DIM ní<4 )í FOR f=t TO 

1330 BEEP ,1,-20! BEEP .2,10: LE 

SR " a- TO USR »t n +7z FíEAD g: POK 

4 

T ng=0: LET bc=ng: FÜR f =1 TD 4; 

E f,g: NEXT i i DIM pí4.2>: FOR f 

150 LET nfí‘f>=STR$ íl+INT CRND+ 

IF níCf)=fJ(ri 1 f) THEN LET ng=n 

= 1 TÜ 4; FíEAD p C F ,2) , p í 4 , 1 ) : NE.X 

hi) ; FOR TO f-1; IF níH)=ní 

g+1: NEXT i i GQ TO 1360 

T í 

<g) THEN CG TO 150 


20 DATA 0,g.g,g,255,g,g,g,l6,8 

160 NEXT g; NEXT f 

1340 FÜR g=í TP 4: IF n$if)=ff(n 

,4,2,255 , g , g , q , 12B , 192 , 160 , 144 , 1 

200 BORDER 4; PAPER 4; INF 0: C 

,g) THEN LET bc-tic+1 

43,135,131 , L29,4,2,l,q,295,g.,254 

L5 : PAPER 7: FDR f-3 Tü 19: PRI 

1350 NEXT g: NEXT f 

, 252 

NT AT f , 0;s$¡AT f,31;"mini MASTE 

1360 DIM h í 4)s FOR f = 1 Tü ng 

30 DATA 120 , g , g , g , 255 , g , 127,62 

R MI ND 11 íf -2 ) : NEXT f 

1370 LET g=I NT ÍRND*4)+1; IF h(g 

,130,193,161 , 145,137,133,3,1,l,g 

210 PRINT AT 9 t 2; il ñPi CD EF 

> THEN GO TD 1370 

, g , g , 255 , g , g , g , 192 1 4Q , 12,2,255 , g 

GM I-J KL": DIM f Tí 6,4): LE 

1300 LET híg)=2: PRINT AT píg,l) 

, q , q 

T n=0 

,5*n+p tg , 2) ; "riN"; AT p <g , i > +1,5*n 

40 DATA 32,64,128,g,255,g,127, 

1000 LET n=n + l; IF n“-é THEN GQ 

+p (g ,23 ; " OP"; NEXT f 

62,255,129,g,g,g,g , 1,g,63,66,129 

Tü 7000 

1400 FOR t-1 TO be 

, g , 255,g, 126 , 60,252,2 , 1 , g , q , y ,-2 : , 

1010 PLOT n-h 4 0—36,20: DRAW 39,0 = 

1410 LET g-INT ÍRND*4)+1¡ IF híg 

4 

DRAW 0 , 1271 DRAW -39,0: DRAW 0, 

1 THEN GO TQ 1410 

50 DATA 0,7,31 , 63 , g , 127 , g , g , Q , 

—127 


224,248,252,220,230, q ,g,127,g,g, 

1020 LET c 1 =n*5—3: LET h^O; LET 

1420 LET híg3=1: PRINT AT píg,l) 

59,60,31,7,0,238,g,g,220,60,248, 

i=hs FOR f-11 Tü 17 STEP 2: PFUN 

, 5*n+p í g , 2) ; ll QR" ; AT p í g , 1) +1,5*n 

224,0 

T AT f ,cl ; "OR" ; AT 4 + 1 , el ^ ST" : N 

+p (g , 23 i " rS-T" : NEXT 4 

60 DATA 0,7,24,32,g,64,g.g,0,2 

EXT 4 

1500 IF ng <4 THEN INVERSE 1: PL 

24,24,4 , g , 2, g , g , 64, g, g , 32, g. f .24,7 
,0,2,g.g,4,g,24,224 f 0 

1030 LET h=h+l: IF h^=5 THEN LET 
h=is LET i=l 

GT n+40-36,20; DRAW 39,0: DRAW 0 
,127: DRAW -39,0: DRAW 0,-127: I 

90 DATA -4,4,-4,6,-2,4,-2,6 

NVERSE 0: GQ TO 1000 

100 BÜRDER 1: BRIGHT 0: IMVERSE 

1040 LET In-9+2*h 

2000 GO TO 7000 

0: DVER Oí FLASH 0: PAPER 1: IN 

1050 PRINT INK B; OVER 1; AT Ln, 

5000 LET m =8+el+3 i LET y-166-8+1 

\ 7 : CLG : PRINT PAPER 2: INF 7 

cl;"OR";AT 1 n+1 , el i H ST" 

n: PRINT AT I n , c 1 ; " t-tM" ; AT ln+l,c 

-(5 AND bn<2) ? FLASH 1 ; M 

1055 LET aT=lNKEY$; IF aT-CHRT 1 

1 p" O F 11 : IF bn THEN IN VERDE 1: G 

PARA EL CASSETTE 11 : DIN ^ 

3 THEN GO TD 1300 

Q GUB S943+PEEK Í22528+C1+32*1 n ) 

* (32> 

1060 IF aTC'M" QR at>"6" THEN F 

: INT 0: INVERSE 0 

110 PRINT AT 10,5; “MN QR MASTE 

QR f-1 TO 5: NEXT Ts BD TQ 1050 

5100 RE TUFEN 

R QR MN Op ST MI 

1070 DEEP ,l,30s LET fí(n,h>=al: 

6000 PLOT x+3,y: DRAW 0,6: RETUR 

ND :^T OP"jAT 13,5; 1985 Persa 

INK VAL aTs GO SUD 5000 

N 

SüTtware'^AT 21,0; PAPER 2¡&T 


6001 PLQT >:+ 3,y: DRAW -3,0: DRAW 

120 FDR +-1 TO 4: PLOT 40-5*í,6 

1000 IF INKEYíOaí THEN Gü TD 1 

0,3; DRAW 3,0: DRAW 0,3: DRAW - 

4--5-«F: DRAW l6D+lQ+F t Q: DRAW 0,4 

030 

3,Oí RETURN 

0+10+f: DRAW -16B~10*f,0: DRAW 0 

1090 GO TO 1080 

6002 PLOT K,ys DRAW 3,0: GO SUB 

,“4G“iO*f¡ NEXT 4 

1300 IF NÜT i THEN FDR f“l Tü 4 

6000: DRAW -3,0: PLQT ::+3,y+3: D 

125 IF bn=2 THEN INF'ÜT "Blanco 

í NÉXT +: DO TÜ 1050 

RAW -3,0: RETURN 

y negro 7 LINE ai; LET af = í 

1310 FOR f=l TO 3: FOR g=f+T TD 


")(D: LET bn=dí="s" DR ar= 

4: IF Tí íñ ) =-Ff (n,g) THEN GD T 

6003 CQ SUB 6000: PLOT >£,y+ó; DR 

"5” 

□ 1055 

AW 0, 3; DRAW 3,0; RETURN 









¿004 PLOT w,y: DRAW 3,0: DRAW 0, 
3: DRAW 3,0: "DRAW 0,3: DRAW 3,0 
! FfCTURM 

¿005 PLOT K,y: DRAW 0,3; GÓ TO 6 

004 

7000 IF n< 7 TREN SO TD 8000 
7010 FRINT AT O t 0;üi;3Í;AT 0,0?" 
La Combinación era : H ¡ FQR f"l T 
D 4: LET ln-0: LET ci-f*2+2l: IN 
r VAL n# <-f > s GO 8 LIE 5000: NEXT 4 


7020 GD TD 0030 

□000 PRINT AT O,0;"Acertaste La 
combinación en M ;n; M intento 

AMD n>U;sí< TO 22-Mn = l>> 
0030 ROSTOBE 9000: FDR 4=1 TO n: 
RLAD a+í NLXT 4t PAPER 4 : PRINT 
AT 21,O;ai: DEEP 1,0: FDR f=l T 
G 7: DEEP ,03,20; NEXT 4 

□ 040 IF INKEYÍO. THEN GO TCI 0 

040 


POSO PAUSE 1: PAUSE Os GO TD 100 
9000 DATA "Has tenido mucha suer 
te","Eso es suerte", H Todo un mas 
stro" , " Buena vista","Fsch... Del 
monton","Muy apurado", H Lü tuyo 
na es esto 11, 

9990 CLEAR : SAVE “Mast.ertl 11MD" L 
INE 10 

9999 BRIGHT Ui BORDER PAPER 7 

i INK Oi CLS 



DINAMICA 

Utilizando el desarrollo en serie de Taylor, el programa calcula la posición de un móvil cuyo 
movimiento está regido por ecuaciones más o menos complejas. Tras la presentación e 
instrucciones solicita la introducción de la expresión de la aceleración en cada una de sus 
componentes espaciales (ax, ay, az). La estructura del programa está claramente expuesta en el 

mismo por medio de sentencias REM. 


9 REI”! ENTRADA DE DATOS 
10 PRINT AT 20,0;" Introduzca 
las aceleraciones, 11 

15 INPUT LIME a*: INPUT 

,l Ay="? LIME b£: INPUT "Az-"? LI 
ME ct 

17 IF sF= ,M ‘ GR b*= i,,p GR e$» Ml1 
TREN DEEP .01,302 GO TO 10 

20 PRINT AT 20,0; 11 Introduzca 1 
4 pos i t= i Dn inicial» " 

25 INPUT "x = " ; x t INPUT ”y= tJ ;y: 
INPUT 

30 PRINT AT 20,On 11 Introduzca I 

a velocidad inicial. 0 

35 INPUT "Vx- 11 ;u: INPUT H Vy= M ; 
v; INPUT Pi Vz= ,1 !w 

40 PRINT AT 20,0;"Introduzca e 
L incremento h H *' 

45 INPUT “h-, 11 ; h 

50 PRINT AT 20,0;"Introduzca e 
1 intervalo de presentación 

de resultados," 

55 INPUT ^Intervalo-"; int 
60 PRINT AT 20,0;"Desea mensaj 
e de scrpli? (s/n) . " , ,, 

65 LET r$= IM&feY*: IF rf- lk " THE 

N GÜ TO 65 

70 IF r#^ M s M ÜR rí=°S*‘ THEN L 
ET GO TO 85 

75 IF r#<> H n Jt AND ríO 11 N" THEN 
GO TU 65 


SO LET sc"0 
05 CL5 
90 LET t~0 
100 REM FUNCIONES 
110 DEF FM a í u,v,w)=VAL a* 

120 DEF FN b(u,v,w!=VAL b$ 

130 DEF FN c (u,v,w)=VAL C$ 

135 REM DERIVADAS 
140 DEF FN p <u,v,w,h>=MFN aíu-2 
*h, v ,t*0-8*FN aíu-h,v,w)+0*FN a(u 
th,v,w)-FN a Cu*2*h , v, w)>/12/h 
150 DEF FN q(u,v,w,h)=ÍFN b(u,- 
2*h+v,wí“B*FN bíu,-h+v,w ) +S*FN b 
íu,h+v,w)-FN b íu,2*h+v,w>)/12/h 
160 DEF FM r Clí,v,W = ctu,v 
, W“2* h ) “Q-n-FN t (u , v, w-h ) +8*FN c(ü 
,v,w+h)~FN cíu,v,w+2*h))/12/h 

165 REM CALCULO SERIE DE TAYLOR 
170 LET k=0 
100 LET k = k +1 

105 IF INKEY#=CHF^ 13 THEN SD 
TO 600 

190 LET t=t+h 

200 LET p-FN ptu,v,w,1e-6): LET 
q=FM q(u,v,w,le-6) ¡ LET r=FN r< 
u,v,w,1e-ó) 

210 LET y. =x +u*h +h*h*FN a(u,v,w) 
/2+h.# , h*h#p / 6 

220 LET y=y+ v -*h+h*lr»FN b<u,v,w) 
/2+h-*h*h#q/6 


Juan Carlos Fabero 

230 LET z=z+w*h + h*h*FN c Cu,v,w) 
/2+h*h*h*r/6 

240 LET u=u+h*FN a <u,v,w)+h+h+p 

/2 

250 LET v=v-th*FN b í u, v , w) +h*h*q 
/ 2 '* 

260 LET w-sfti+hfcfN c tu , v , wí+h*h*r 
/2 

270 IF kCint/h THEN GO TD 1BÚ 
275 REM PRESENTACION RESULTADOS 
280 PRINT "t“ ,J ; t ' *’m = " 3 x ' H y- ,p ; y ' 
,l 2 = ,, !Z 

290 PRINT 11 --- 


295 POKE 23692,PEEK 23692*sc 
300 GO TG 170 
340 REM INSTRUCCIONES 
350 CLS 

360 CLS ; PRINT " Este programa 
se sirve del de- sarro!lo en se 
ríe de Taylor para" 

370 PRINT “calcLilar la posición 
de un fitovilque se mueve bajo *\a 
s efectos deuna determinada fuer 
za (o fuer- zas)." 

300 PRINT " Salo debe introduci 
r las íormu-las de 1 as aceleráci 
ones que su-fre el móvil en cada 
uno de los ejes cartesianos- 41 
390 PRINT ' 14 Las formulas se al 
macenan como cadenas alfanumeric 














































as T por lo quena deben contener n 
ingun error" 

400 PRINT "sintáctico o se Ion 
ara un snem sa.je C NON SEN SE IN 
BASIC, H 

410 PRINT 11 Por la misma rasan, 
cuando la Tuerca en una de las 
tres direc-ciones sea nula, deh 
a introducir""O" M y no stmplemen 
te la cadena vacia," 

420 PRINT M ; A T i,S; "PULSE UNA 
TECLA" 

430 FQR n-Q TO 10000; IF INKEY* 
THEN NEXT n 
440 CLS 

450 PRINT M Él programa le pedí 
ra el valor del incremento de ti 
empG para lamerte de Taylor." 

460 PRINT " Cuanto mas pequeño 
sea h ( mas preciso y lento sera 
el calculo," 

470 F'RINT H " También se le pedí 
ra cada cuan-tas unidades de tie 
mpo quiere presentar los resol 
tados. " 

400 PRINT ''* Para detener el 
calcula pulse ENTER r 

530 PRINT Mi AI S *8; "PULSE UNA 
TECLA" 

540 POR n=0 TO 2000i IF JNKEY$— 
11,1 THEN NEXT n 
545 RÉF1 dibuja de los ejes 
550 CLS ¡ FLOT 127,07: DRAW 0,0 
7 

560 PLQT 127,87: DRAW 07,0 
570 PLQT 127,07: DRAW -49,-4? 
580 PRINT AT 0, 15:"Z ,r ;AT 10,23: 
"Y"; AT .17,8; "X" 

590 00 TO 10 
600 REM STOP 

610 PRINT ;i:AT 0,0:" Pulse SPA 
CE para continuar a 'P' para f 
i,nal izar , " 


t z3 

X = 1 3 4 
M -2 77 
z ^42© 

t -4 

y = 4-1E 
Z =DS0 

t =: F> 

™ s S G 

I i i4 _ (“ ^ |^7 

JJJI ' ’ ’ ' ■■ l^ 

Z - 1000 


620 LET rt-INFEYt: IF rt= ,M ' THE 
N GD TO 620 

630 IF r#=CHRT 32 THÉN PRINT ) 
1 iAT 0,0,, , ,: GO TO 190 

640 IF r*0-"p n AMD r*<> M F" THEN 
GO TO 620 

650 STOP : GO TO 545 

700 REM PARADA DE CINTA 

710 DEEP ,3,30 

720 PRINT AT IO T 0 * INK 0; PAPER 

7; FLASH l; 11 PARE LA CINTA" 

730 POP n=0 TO 400: IF INKEYÍ=" 
Jl THEN NEXT n 

740 PAPER Oí ÍNK 7: BRIEHT 0: B 
□RDER O: CLS 

750 PRINT 11 ************** u ***** 
****** *** *** h 

760 FOR n=l TO 18; PRINT AT n,0 


- "* 

*"! NEXT n 

770 PRINT "a***###***#***#**#** 
********* *■ + *'« 

780 PRINT AT 4,0;"* RESOLUCIO 
N DE PROPLENAS #" 

790 PRINT AT S,Üs"* DI 

NAMICOS *" 

BOO PRINT AT 32,0:"* Juan Cari 
as Fabero Ji menee *";AT 14,13*" 
1706" 

B10 PRINT AT 21,0;"PULSÉ UNA TE 
CLA" 

820 FOR n=0 TO 400: IF INKEYí=" 
" THEN NEXT n 
(330 GO TO 360 

9999 CLEAR ; SAVE "DINAMICA 11 LIN 
E 700 
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Catálogo de Software 
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ordenadores 
personales 



Todo el Software disponible en el 
mercado reunido en un catálogo 
de 800 fichas 


1 . a ENTREGA 
550 FICHAS 
+ FICHERO 

Resto en dos entregas 
trimestrales de 1 50 fichas 
cada una 


PRECIO TOTAL DE LA SUSCRIPCION 8.000 PTAS, 

COPIE O RECORTE ESTE CUPON DE PEDIDO 

c -—v—- 

CUPON DE PEDIDO | ¡mporte lo abonaré POR CHEQUEO CONTRA REEMBOLSO □ CON MI 
‘ ” “ ¡ TARJETA DE CREDITO □ 

CATALOGOLE SOFTWARE A: | Cargue 8 000 ptas ' 3 mi tarjeta American ExpreSS D Visa D lnterbank D 




| Número de mi tarjeta | 1 i I 
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| r.A iif 
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1 PROVIKiniA 

TELEFONO 


^O EN CONCESIONARIOS IBM 

JL ref: CATALOGO DE SOFTWARE 
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I ÍIA5MTTÍ5; 

I 

d*-: BKifoifiifttt 


VUELTA AL 


Completa tu colección de ZX. 

A continuación te resumimos el contenido de los ejemplares 
atrasados en existencia. 


Núm. 16/300 ptas. 

Cassettes: solución a los 


Núm. 13/300 ptas. 

Guia del software para e 


Núm. 10/300 ptas 


Núm. 14/300 ptas. 

Cómo lugar al Hobbit 
Gráficos de funciones. Pro¬ 
gramas de ajedrez. Cone¬ 
xiones con el P l/O. Progra¬ 
mas Multiplic, enseñar de¬ 
leitando J ib ros, Forth, ter¬ 
cera parle. 


Núm. 11/300 ptas. 

Como crear marcianos y 
otros monstruos. 

Diez programas satélites 
de Júpiter, rescate, ínteres, 
circulo, préstamo hipoteca¬ 
rio. 


Núm. 17/300 ptas. 

Mapa de Atic-Atac. Estira 
de caracteres, Dinámica de 
una partícula. Libros. GL 
Magazine. Programas. 
Convertidor a nal© g ico-di¬ 
gital con el P l/O. 


Núm. 8/300 ptas. 

La aveniura es la aventu¬ 
ra/1 2 programas/Juegos y 
roontaies/Código máqui¬ 
na. 


Núm, 5/300 ptas. 

Gráficos y sonido en el 
Spectrum/Ubros/Softwáfe/ 
13 programas. 







* 

SBS1UM 

mym* 

TOUM filis 































tmm 

PtfM vjyg 


C¡tój» LHifcMtfr 


Núm. 19/300 ptas. 

Mapa de Knig ht Lo re. No* 
lici-as. Crítica, Renta 85 (se¬ 
gunda parte). Libros. El ZX- 
81 aprende a sumar. Scroll 


Núm. 21/300 ptas. 

Mapa de Underwurlde. 
Noticias, Critica. ¿Has pro¬ 
bado? Programa especial 


Núm, 23/300 ptas 

Crilica. ¿Has pn 


EJEMPLARES ATRASADOS 


Núm, 18/300 ptas. 

Rentas 85. Forth, sexta 
partir. Programas. BASIC 
para principiantes (3), Plot- 
ting Gráficos. Libros, Usua¬ 
rios. Critica. 


Núm. 20/300 ptas. 

Vacaciones con informá¬ 
tica. Critica. Noticias. Pro¬ 
gramas. Son muy divertí 
dos. Libros. Generación de 
placas de circuito impreso. 
Forth. Movimiento armóni¬ 
co simple, Spectrum musi¬ 
cal. 


QL 




HP*Mi 


HRinMarch 


Núm. 22/300 pías. 

Noticias. Teclados profe¬ 
sionales, Critica. ¿Has pro¬ 
bado? Programa especial: 
procesador de textos. Ge¬ 
neración de placas de cir¬ 
cuito impreso (segunda 
parte). Programas GL espa¬ 
ñol Quinielas en Spcclrum. 
BASIC para principiantes 
( 6 ). 


Núm. 24/300 ptas. 

Juegos/Mapas dol No- 
des of Yesod y Lorris ol 
M i d n ig ti t/¿ H n s p robado?/ 
Sois muy diverlidos/Usua- 
no/Ajustede gráficas/MuUi- 
search/Programas/Monla 
je: inversor de video para 
ZX 81/Dóssíer QL 


Núm. 26/300 ptas. 

Spectrum o QL, invasión 
de los 128/¿Cómo utilizar 
mejor el microdnve?/Jue- 
go$/Mapa dei Dun Darach 
y misión imposiblc/Progra- 
mación estrudurada/BA- 
SIC. 


devenlanas. Programas, El 
soGware que nos invade. 
BASIC para principiantes 


□arqunos. üois muy uivem- protanation protanaao. No¬ 
dos. Libros para el verano, ticias. Discos para Spec- 


Un poco de tísica. BASIC 
para principiantes (5) 


DISPONEMOS DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuademación) 


trum. Dosster educación: 
Spectrum en el aula, autoe- 
valuación, Logo. Código 
máquina, Programación 
especial; quinielas. Monta¬ 
je a cámara lenta. BASIC 
para principiantes (7). 


Num. ¿o/juu pías. 

Juegos/Especial juegos. 
Mapas y trucos de: High- 
way encounter, Tir Na Nog, 
Nighlshade/¿Qué es el 
Slack 7 /Programa especial/ 
Código máquma/Lotería 
primitiva/Btándares de la 
informática/Programas. 


Núm, 27/300 ptas. 

La vida de Smclaír/Pie- 
zas musicales para Spec- 
trum/Juegos/Mapas del 
ARNHCM y SABOTEUR/ 
Areas/BASIC para impre- 
sora/Ei área de variable y la 
instrucción RST 16. 


wioow w 


-^JóPara hacer tu pedido, rellena el cupón adjunto, 


(en cada tomo 
se pueden 
encuadernar 
6 números) 


córtalo y envíalo HOY MISMO a: 

ZX, Bravo Murillo, 377 • 28O20-MADRID • Tel. 733 74 13 —y*' 0 

i Los ejemplares atrasados de ZX serán una fuente constante de cono- 
I cimientos, ideas, soluciones y entretenimientos para el futuro Todo lo 
I anterior hace recomendable que los guardes ordenadamente en una de 
I las tapas especiales para ZX Cada tapa puede contener 6 ejemplares 
, y cuesta solamente 650 ptas 

Ruego me envien los siguientes ejemplares atrasados de ZX . 

.al precio de 300 ptas cada uno 

| Por favor envien . tapa(s) al precio de 650 ptas cada una 

| (4 gastos de envío) 

i El importe lo abonare: 

1 □ contra reembolso □ cheque adjunto □ con mi tarjeta de crédito 
1 □ American Exprés □ Visa □ Interbank 

| Fecha de caducidad ....... *. *. *. * .■* ¿.* — .. 

| Numero de mi tarjeta ' j | ¡ , , ' , | , j i ¡ , ; I I ! iH 

| NOMBRE .....-.*.-.. 

DIRECCION ......... 

POBLACION , ....C.P... 

I PROVINCIA . ****...i —. 






































UNA APLICACION 
MATEMATICA 


SUCESIONES 

Dentro del enorme mundo de las matemáticas 
encontramos una pequeña parcela dedicada 
a las sucesiones. En este artículo se va a tratar 
precisamente este tema, enfocado desde el punto 
de vista de la programación. 


L AS sucesiones son conjunlos 
de números reales, ordenados 
y que, por lo general, obedecen 
una ley, relacionando el valor del 
elemento con el lugar que ocupan 
dentro de la sucesión. Esta regla o 
ley es una expresión matemática en 
la que «n» es un número natural. 

Uno de los conceptos más impor¬ 
tantes de las sucesiones es el de 
límite o punto de los reales en el 
cuál se cumple que la diferencia en¬ 
tre él y cualquier término lo sufi¬ 
cientemente avanzado es tan pe¬ 
queña o más que épsilon (siendo ép- 
silonun nú mero positivo tan peque¬ 
ño como queramos). En caso de que 
dos o más puntos cumplan esta con¬ 
dición no se llamarán límites, sino 
puntos de acumulación. 

Otros conceptos con los que tra¬ 
bajaremos son los de cota, decre¬ 
ciente, creciente, convergente, osci¬ 
lante,... 


Problemas más importantes 

Al estudiar a fondo este tema en¬ 
contramos varios problemas, debi¬ 
dos a que nuestro micro, que lo sabe 
casi todo, no trabaja con números 
con infinito o épsilon. Tampoco cal¬ 
cula algunas operaciones común¬ 
mente usadas en matemáticas como 
es el caso de la potencia de un nú¬ 
mero negativo {—y t x). 

La solución al primer problema es 
bastante sencilla, aunque tiene sus 
limitaciones. Consiste en sustituir 
infinito por un número que cumpla 
que si le sumamos un real no dema¬ 
siado grande, ya que trabajaremos 
con cantidades no excesivas, nos de 
él mismo. Además, cuando lo multi¬ 
pliquemos por cualquier número, 


éste se almacena, por si queremos 
reducir o simplificar. 

Para buscar un número que cum¬ 
pla estas condiciones debemos re¬ 
currir a números con exponencial 
(como 1E10): 

1 + 1 =] 

1E1Ü+1=1E10 

(Mnfinito) 

21/31=2/3 

2 1E10/3.1EIÜ=2E10/3E 10=2/3 

Ahora bien, tiene sus defectos: 
1 + 1 - 1=1 

1E10+1—IE10=IE10—1E10=0 

Aún así, lo podemos usar, ya que 
en lo que nos ocupa ahora no nos va 
a limitar demasiado. 

Con épsilon ocurre lo mismo, 
usaremos 1E—S. 

No nos va a resultarían fácil ense¬ 
ñar al ordendor a operar potencias 
de base negativa, aunque, como es 
muy «inteligente», aprenderá rápi¬ 
do. 

Observemos: 

(—i) r 7=—i (-i)tio=i 

(-2) t 3=—8 (-2) T 2=4 

De aquí podemos deducir que si 
el exponente es impar (columna iz¬ 
quierda), el resultado es siempre ne¬ 
gativo y si es par, positivo (siempre 
trabajando con bases negativas y ex¬ 
ponentes enteros). Ya hemos halla¬ 
do el signo, lo que queda es tan sólo 
la misma potencia con base positiva. 

Teniendo en cuenta estos facto¬ 
res podemos decir: 

(—y) t x=y t x —2y t x si x es impar 

Esto se entiende ya que 









y T x— 2y t x=—y T x, es decir, si x esd 
impar el signo será negativo. 

Ahora debemos buscar una fór¬ 
mula que dé 1 si x es impar ó 0 si x es 
par, para que, multiplicando con 
—2y t x, la resta se lleva a cabo o no, 
y por lo tanto se cambie de signo si 
es necesario. 

Esa fórmula es: 

INT x+1 -INI x 2 2 

Si x es impar, y por supuesto ente¬ 
ro, el primer término será una uni¬ 
dad mayor que e) segundo. Por lo 
tanto su diferencia es uno. Sí x es 
par ambos serán iguales y c) resulta¬ 
do será 0 (como buscábamos). 

Para poner en práctica esto en el 
programa, debemos definir u na fun¬ 
ción enn la que se introduzca y,x. 
Pero encontramos un error, si lo 
usamos con base positiva nos saldrá 
mal. Para subsanar este pequeño fa¬ 
llo tenemos que seguir el mismo cri¬ 
terio que antes; si es positivo no se 
restará (multiplicando por 0), y si es 
negativo se efectuará la operación 
(multiplicando por I). 

La fórmula que nos puede ayudar 
es: 

ABS (y)—y 
2*ABS (y) 

Finalmente nos queda: 

FN r(y,x)=ABSy x—ABSy 
x*((lNT((x+1 )/2-lNT(x/2))*((AB- 
Sy—y)/2*ABSy)) 


E! programa 

Aclarados estos conceptos, pode¬ 
mos pasar a la parte en la que el pro¬ 
tagonista será el Spectrum, tanto de 
16 como de 48 K. 

Para empezar, apliquemos estas 
¡deas que acabamos de ver, defi¬ 
niendo «in» como infinito (=1E10), 
y la función r(y,x) como potencia de 
base positiva o negativa (líneas 80 y 
90). 

El programa está dividido en par¬ 
les bien definidas para comprender 
mejor su funcionamiento: 

-Dibujo de la pantalla (líneas 100 
y 220 y DATA’s 1500). 

Se encarga de la representación 
inicial en nuestro monitor. No tiene 
nada en especial en cuanto a progra¬ 
mación. Su estructura es bastante 
sencilla utilizando tan sólo un bu¬ 
cle, combinado con sentencias 
READ. 

—Limites (230 a 290) y puntos de 
acumulación (300 a 440). 

Lo primero que debe saber esta 








rutina es si realmente hay límite, o 
por el contrario tenemos puntóse de 
acumulación. 

Bajo la forma de término a(n), só¬ 
lo podemos hacer que halle puntos 
de acumulación usando la fórmula 
del signo alternante, es decir, ele¬ 
vando un número negativo a una 
potencia cuyo exponente sea unas 
veces par, otras impar. Para compro¬ 
bar si esto ocurre hemos de ver si 
continuamente va creciendo o de¬ 
creciendo la sucesión. En caso de 
que no se cumpla esta condición, 
podemos decir que tendrá puntos 
de acumulación, y el programa se 
desplazará a la línea 300. Esta fun¬ 
ción la realizan las líneas 240 y 250. 

Para hallar el limite, no encontra¬ 
mos más problema que operar con 
la función a(n), dando a «n» el valor 
de infinito (línea 270). 

Más difícil resulta hallar los pun¬ 
tos de acumulación, ya que sí usáse¬ 
mos el mismo sistema que para ha¬ 
llare! límite sólo podríamos hallare! 
punto de acumulación cuando «n» 
es par, al ser todos los números ex¬ 
ponenciales pares. 

Ahora bien, conociendo el punto 
de acumulación cuando n es igual a 
inllnito, podemos hayar el otro por 
el método de aproximación por dife¬ 
rencias. Esto es, la diferencia entre 
un término par (a), y el punto de 
acumulación par, será igual a la dife¬ 
rencia entre el punto impar, y un 
término impar (b) cercano al ante¬ 
rior (a): 

P. par —f(a)=P. impar —f(b) 

(siendo «a» un número par v b=a+ 
])■ 

De esta fórmula conocemos todo 
menos el p. impar que despejándolo 
sería. 

P. impar =P. par —f(a) + f(b) 
(Líneas 300 a 440), 

Dentro de esta rutina, «límite o 
pumos de acumulación», también 
se incluye una SUBrulina situada 
desde la línea 2000 a la 2210. Esta ru¬ 
tina imprime el límite o los puntos 
de acumulación teniendo en cuenta 
que: 

si num.>lE10=l: todo número 
mayor que I es igual a I. Por lo tanto 
se imprimirá I. 

si num.c—1E10=— I: se imprimi¬ 
rá -I por la misma circunstancia. 

si nu.<lE—8=ep: se imprimirá 0. 

-Colas superiores e inferiores 


(líneas 500 a 630). 

Se denominan cotas superiores, o 
mayoritarias de una sucesión, a los 
intervalos que cumplen que todos 
sus puntos son mayores que los ele¬ 
mentos de la sucesión. Llamamos 
cotas inferiores o minorantes cuan¬ 
do todos los puntos del intervalo 
son inferiores a los de la sucesión. 

Para indicar al ordenador qué 
puntos son cotas superiores, y cuá¬ 
les inferiores, debemos fijarnos 
que: si hay límites, sólo dos puntos, 
colocados en Jos estreñios de la su¬ 
cesión. Pueden definir las cotas. El 


mayor de los dos nos indicará la cota 
superior, y el menor la inferioir. Es¬ 
tos puntos son el primer término y 
el límite. 

En caso de que haya puntos de 
acumulación, habrá cuatro puntos 
que puedan definir las cotas, los dos 
puntos de acumulación, el primer 
término y el segundo. 

Cuando alguna de las cotas defi¬ 
nida por el infinito, noi existirá tal 
intervalo, por lo que no existirán 
propiamente cotas. 

Para poner en práctica estos con¬ 
ceptos sguiremos unas fórmulas 













que son las que usa el programa des¬ 
de la linea 560 a la 590: 

al>a2, a>a’ 

sup.: si a>al cota igual a 
si a<al cota igual al 
inf.: si a’<a2 cota igual a’ 
si a’>a2 cota igual a2 

Es estas fórmulas, al será f(l) o 
f(2) según cual sea el mayor, lo mis¬ 
mo ocurre con a2. Los puntos aya’ 
son los de acumulación. 

-Representación gráfico. 

Dentro de este bloque encontra¬ 
mos otras subdivisiones: inicializa- 
ción, representación de enteros, de 
la sucesión y de a{n). 

En el primer apartado, tan sólo se 
definen ciertas variables, que nos 
van a ayudara una mejor gráfica. Es¬ 
tas variables son: 

ic — inicio, es el punto que se lo¬ 
mará como referencia para los de¬ 
más. 

px = pixel en el cual se va a repre¬ 
sentar el punto ic. 

pr = proporción que representa 
cuántos pixel ocupan una unidad en 
la recta de los reales. 

En cuanto a la representación de 
los enteros, consta de una subrutina 
(2100) manejada por dos programj- 


Ilas de elementa] estructura (800 a 
840). 

La subrutina es tan sólo una apli¬ 
cación de, una fórmula que relacio¬ 
na el número que se va a representar 
con su situación en la pantalla. Esta 
fórmula es: 

INT((INTic+n—ic)*pr)+px 

En donde «n» es un número que 
va creciendo hasta que no quepa en 
la pantalla, para luegto empezar a 
decrecer. 

Esta fórmula se explica fácilmen¬ 
te: al número que vamos a represen¬ 
tar (1NT ic + n) se le resta el punto 
inicial; esta diferencia, multiplicada 
por la proporción será los pixel que 
separan ambos puntos, sumándole 
el pixel del punto inicial, obtenemos 
las coordenadas del nuevo punto. 

La representación de la sucesión 
y de a(n) se basan en lo mismo, sólo 
que, en vez de ser el número a repre¬ 
sentar un entero, esa(n), donde «n» 
varía. 

—Creciente o decreciente (líneas 
100 a 1140). 

Una sucesión es creciente, si lo¬ 
dos los puntos son mayores o igua¬ 
les que los que le preceden. Y es de¬ 
creciente si los elementos van dis¬ 


minuyendo su valor. 

Sabiendo esto podemos hacer un 
muestreo de 5 términos de la suce¬ 
sión (1010 a 1080), y ver si hay un au¬ 
mento o una disminución progresi¬ 
va, comprobando si es monótona, 
cuando hay varios términos iguales, 
o estricta si no los hay (1090 a 1140). 

—Convergente o divergente. 

Una progresión es convergente si 
tiene límite distinto de infinito, es 
divergente si el límite es infinit, y os¬ 
cilante cuando tiene puntos de acu¬ 
mulación. 

Uso del programa 

La utilización de este programa es 
muy sencilla ya que lo único que se 
tiene que hacer es introducir al co¬ 
mienzo el término general, tenien¬ 
do en cuenta que para operar con 
potencias, puede usar la función FN 
r(y,x), A continuación el programa 
hará la representación gráfica y pe¬ 
dirá un número natural para repre¬ 
sentarlo e imprimir su valor. 

Si quiere empezar con nuevos da¬ 
tos debe teclear la palabra «nuevo» 
y a continuación pulsar ENTER. 

Gabriel Orlas González 


SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 

Telf. (91) 733 7969 

7 días por semana, 24 lloras a su servicio 


SUSCRIBASE A 

_ 




N 


J 



















•i -■mi: 
aí -i[*! + l| 


0>REM SUCESIONES 

GABRIEL DRTAS GONZALEZ 
19SS 

50 RESTORE 1530 
60 LET a=Q 

70 READ bs POKE USR ,l a"+a,b: L 
ET a-a+lí IF a< = 15 THEN GO TP 7 

O 

80 DEF FN ríyvxJ-ABS y^x-S^ABS 
y A K*ÍUNT Ítx + 1W2)^INT <x/2)>* 
<AB3 y-y>/C2*ABS y>1 

90 LET ifi-le!Os LET nuevo=ín-9 
9eS-7 

100 REM Dibujo de la pantalla 
110 RESTORE 1500 
130 READ x 
140 READ y,p* 

150 PRINT AT x T ysp* 

160 READ x 

170 IF x < >99 THEN GO TO 140 

180 PLÜT 0,136: DRAW 255,0 

190 PLPT 0,322 DRAW 255,0 

200 REM Pedir aínJ 

210 INPUT " p Í*í PRINT AT 

220 DEF FN e<n*=VAL f* 

230 RE ñ Limites 

240 IF FN a <1) >FN aí2i AND FN a 
Í2KFN a(3í THEN GO TO 300 
250 IF FN a í 1) <FN a <21 AND FN a 
Í2J >FN aC3> THEN GO TO 300 
260 PRINT AT 7,i;"limite a<n>= 
n-AB M 


270 LET 1 i=FN aíin): LET pu=l 
280 LET *=7: LET y=13: LET pa=l 
i 

290 GO SUB 2000s LEI li-pas SO 
TO 470 

300 REli puntas de acumulación 
310 LET pu=2; LET ps=FN aíin-99 
eB-2) 

320 PRINT AT 7,1; 11 Punto sup.= ,M 
" Punto inf-= H 

330 IF FN a (13 <FN a(3> AND FN a 
Í2KFN a <45 THEN GO TO 370 
340 IF FN a <1) >FN a (3) AND FN a 
(2) >FN a < 4) THEN GO TO 370 
350 LET pi=FN a(in-99eG-l)-FN a 
ti n > +ps 
360 GQ TO 380 

370 LET pi=FN a < in-99e8=-l 1+FN a 
íiní+ps 

3BC LET ps=FN aíin) 

390 IF ps<pi THEN LET ps^pi: L 
ET pi=FN aíiní 

400 LET x=7: LET y-12: LET pa=p 
s 

410 GO SUB 2000: LET ps=pa 
430 LET x=8s LET y-12: LET pa=p 
i 

440 GG SUB 2000: LET pi=pa 
500 REM Catas 

510 IF pu=l THEN LET ai=FN aíl 
)s LET a2=al: LET a=li: LET b=a: 
GO Tü 560 

530 LET al —FN aíl): LET a2-FN a 
(21 


540 LET a-ps: LET b—pí 
550 IF al<a2 THEN LET a2-al¡ L 
ET al=FN aí2> 

560 IF a>al THEN LET es=a: LET 


570 IF a<=al THEN LET es-ala L 
ET sf^'3" 

580 IF b<a2 THEN LEI ei=b: LET 
t 

590 IF b>=a2 THEN LET ci=a2: L 
ET tí~ bl [" 

600 IF ABS cs<-1e-8 THEN LET c 


s=0 


610 IF ABS ci<=lB“S THEN LET c: 


i =0 

620 IF cs>~in THEN GO TO 620 
630 PRINT AT 12,14;sí?es;",ABI" 
640 IF ci<=™in THEN GO TG 650 
650 PRINT AT 12,3; 11 3™AB , " ; cí ; tí 


700 REM gráficos i nici al ilación 
710 IF CS“Ci THEN LET px-12G: 
LET pr—50: LET ic=c 5 : GD TO 810 
720 IF cs<in AND ci>-in THEN L 
ET ic=ícs+ci)/2; LET px=12S: GO 
TO 790 

730 IF C5<in AND ci<— in THEN 
LET ic=cs: LET px=239: GO TO 770 
750 IF ciWn THEN LET ic=cis 
LET px=16: GO TO 770 
760 LET ic=FN a<l)+FN a(2H LET 
px = 12f3 

770 LET pr-B 
700 00 TO 020 

790 IF cs-ci>28 THEN GD TO 770 
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BOO LET pr-224/ (cs-cü 

B10 REM anteras de la sucesión 
B20 LET *=S! LET y«l40 
930 GO SUB 2100 
B40 REM enteros de a(n) 

850 LET k^IB: LET y=36 
860 GÜ SUB 2100 

900 REM Representación sucesión 
910 LET n=1: LET er=0c LET di=l 
920 LET co=!NT C(FN a<ní-icí*pr 
í +px 

930 IF co<0 OR CO>254 THEN 80 
TO 980 

940 PLOT co,143? DRAW 0,-5 
950 IF ABS UFN aín>-FN a<n+2)> 
•pr><2 THEN LET dÍ*-di*SGR 3 
96Ó IF di>100 THEN QO TO 1000 
970 LET n=n+di: GO TO 920 
980 LET er-er+1 

990 TF er<3 THEN LET n*n+li GÜ 
TO 920 


1000 RE!Í creciente o decreciente 


1010 LET ig=Os LET ma^Os LET me* 
O 

1020 LET n=l 

1030 LET al-FN aín)s LET a2»FN a 


(n+1 > 

1040 IF ai=a2 THEN LEI íq=1e GO 
TO 1070 

1050.IF al>a2 THEN LET ma-ls GO 
TO 1070 

1060 IF al<a2 THEN LET me-1 


1070 LET ñ^n+I 

1080 IF ti<5 THEN 00 TO 1030 
1090 IF iQ*1 THEN LET c*="Monot 
□na 11 

1100 IF ig-0 THEN LET c*-"Estri 
ctamente " 

1110 IF ma=l AND me=0 THEN LET 
c*»e#+"Decreci ente" 

1120 IF AND rneel THEN LET 

c$=" " 

1130 IF ma=»0 AND me^l THEN LET 
cí-ct+^Creclente" 

1140 PRINT AT Í4,l;c* 

1200 REM convergente, divergente 
1210 IF pu-2 THEN PRINT AT 15,1 
; ■ Oscilante"! GO TO 1250 
1220 IF AB3 li>™irt THEN PRINT A 
T 15,1;"Divergente"¡ GO TO 1250 
1230 PRINT AT 15,1 í"C onvergenta" 

1300 REM Representación a tn > 

1310 LET ca-O 
1340 INPUT "n= *';n 
1350 IF n-nueva THEN CLEAR : GO 
TO QO 

1360 PRINT AT 20,1; "a ,fc ;n; " = ,J ;FN 
a í n > í " 

1370 PRINT AT 16,ÍNT íca/Sís" 
1380 LET CO-INT íCFN *{n)-íc>*pr 

} +px 

1390 IF co<O ÜR cq> 254 THEN LET 
ca”0¡ GQ TO 1330 
1400 PLDT co,40: ORAN 0,5 
1410 0Q TD 1330 


1500 DATA 1 , l ( "a<n>e H T 10,4, "cata 
" ,10,15, ,l cata M 

1510 DATA 11 ^"inferior”, 11,13, 

11 superior H 

1520 DATA 99 

1530 DATA 0,0,24,38,65,70,56,0 
1540 DATA 0,0,24,100,130,9B,28,O 

2000 1P pa>*in THEN PRINT AT h, 
y¡ n AB w « RETURN 

2010 IF pa< £ -in THEN PRINT AT * 

,yí"-AB": RETURN 

2020 IF ABB pa<=le~B THEN LET p 
a*0 

2030 PRINT AT ü,y;pa 
2040 RETURN 


2100 REM enteras 

2110 LET n=ls LET di = í 

2120 LET co=INT UINT ic+n“ic>*p 

r>+px 

2130 IF gq<Q OR co >234 THEN GO 
TQ 2180 


2140 PLDT co,y* DRAW O,“3 
2150 IF pr>17 OR íic+ní/2=lNT (< 
ic+n)/2) THEN PRINT AT x,lNT íc 
o/8>|INT íic+n ) 

2160 LET n=n+di 

2170 GD TQ 2120 

21B0 IF rii =*“1 THEN RETURN 

2190 LET di=-1 

2200 LET n-0 

2210 BQ TG 2120 























































Dirige tus cartas a: 

T odospectrum 
Bravo Murdió, 377, 5.°-A 
28020 Madrid 


ATRIBUTOS ILEGALES 

En relación al programa «Editor de 
pantallas» del mes de octubre (n. u ), 
tengo dudas que me gustaría que me 
resolvieran. En las líneas 60, 2170, 
3051) y 4570 aparece una signo tras la 
sentencia PR1NT que no encuentro 
en mi Spectru. Además en la línea 
9000 encontramos INK 8, PAPER 8 y 
BRIGHT 8, cuando según mis datos 
estos comandos no pueden tomar es¬ 
tos valores. 

Miguel A. López 
Marhella (Málaga) 

El símbolo que aparece tras 
PRINT en las lineas que comentas 
deberás sustituirlo por el de nume¬ 
ral, que podrás conseguir pulsando 
simultáneamente SIMBOL SH1FT 
y 3. El hecho de que aparezca un 
enigmático triángulo en su lugar es 
culpa de nuestra impresora, que, co¬ 
mo ya hemos comentado repetidas 
veces, se empeña en escribirlo «a su 
modo». 

En cuanto a INK, PAPER o 
BRIGHT 8, sí son comandos «lega¬ 


les» y lo que hacen es que cuando 
escribamos algo en la pantalla sean 
respetados los atributos (colores, 
etc) que hubiera en esta anterior¬ 
mente, 


GENS Y WAFADRIVE 

Tengo el ensamblador GENS-3M 
y. debido a la agobiante lentitud del 
cassette, me lie decidido a comprar en 
breve el Wafadrive. Es molesto tener 
que perder el tiempo realizando VE- 
RIFYcacíones cada vez que, al reali¬ 
zar una rutina, la tengo que salvar en 
cassette (teniendo en cuenta que sal¬ 
varlo también lleva su tiempo), ope¬ 
ración que hay que repetir tantas ve¬ 
ces como veces se te «cuelga» la ruti¬ 
na al correrla, después de haber he¬ 
cho las modificaciones pertinentes. 

La pega está en que el GENS según 
creo (pues no tengo las instruccio¬ 
nes), no posee opción de salvado ni 
carga por Microdrive. Quisiera saber 
si es posible que me realizaran una 
rutina o una serie de modificaciones 
en el programa para subsanar dicho 
problema. Si fuera posible les agra¬ 
decería que me dieran el nombre de 


algún ensamblador que sí posea esta 
opción. 

Jorge Mejías 
Palma de Mallorca 

Lo primero que debemos decirte 
es que el hecho de que no tengas las 
instrucciones del programa que 
mencionas nos hace sospechar que 
tienes una versión «pirata» del mis¬ 
mo. En el caso de que esto fuera así 
no pensamos que fuera ético resol¬ 
verte el problema para que pudieras 
disfrutar de un programa que no te 
pertenece. Pero, como no podemos 
estar seguros de sí realmente, es así 
o es que se te han perdido las ins¬ 
trucciones.,, 

Las últimas versiones del GENS 
si que admiten trabajar con micro- 
drives. Para ello se utilizan los mis¬ 
mos comandos que para el cassette 
pero incluyendo el número de la 
unidad y «:»antes del nombre del fi¬ 
chero. Por ejemplo, para salvaren el 
microdrive 1 las lineas 1-2ÜÜ de un 
programa llamado «PEPITO» hare¬ 
mos: Pl,200,l :PEPITO, 

El programa comprueba si el fi¬ 
chero que pretendemos salvar ya 
existe en ese cartucho, y, si es asi, pi¬ 
de que confirmemos si queremos 
sobregrabar. El comando «H» sin 
argumentos hace un VERIFY del 
último fichero salvado, 
tema operativo y el SUPERBASIC, 
a más versatilidad de uso de un len¬ 
guaje en un mismo número de Ks 
siempre corresponde una menor se¬ 
guridad ante los posibles fallos del 
programador. 

¿128 COMPATIBLE? 

Hace unos meses salió al mercado 
el nuevo ordenador Sinclair, el Spee- 
trum 128K, y aunque he leído el artí¬ 
culo publicado en TODOSPEC- 
TRUM explicando algunas de sus ca¬ 
racterísticas, aún me quedan algunas 
dudas que espero me puedan resolver 
a través de esta revista: ¿es el BASIC 
del I28K similar al del antiguo Spec- 
trum? ¿Puede emplearse un progra¬ 
ma de Spectru m 48K en el I28K? 
Gracias por su ayuda. 

Sixto M. Buendia 
Almería 

El BASIC del Spectrum 128K es 
muy similar al de los modelos ante¬ 
riores, de hecho las 16K bajas de la 


ROM del 128 son una copia exacta 
de la de aquellos. Las principales di¬ 
ferencias son: un nuevo editor de 
líneas, el hecho de que los coman¬ 
dos se tecleen letra a letra, su tecla¬ 
do numérico y la ¡mplementación 
de algunos comandos nuevos. Estos 
últimos son los que se utilizan para 
controlar los chips de sonido y co¬ 
municaciones, el uso de la memoria 
extra como disco RAM y el coman¬ 
do SPECTRUM, que convierte el 
128K en un 48K normal y corriente. 
Cuando ejecutamos ese comando la 
compatibilidad con el viejo Spec- 
trum es prácticamente total, por lo 
que no hay ningún problema en uti¬ 
lizar un programa original de éste. 


LENGUAJE MAQUINA A 
DISCRECION 

Me gusta mucho su revista, y les fe¬ 
licito por la serie de lenguaje máqui¬ 
na, pues me daba rabia ver un listado 
en ensamblador sin entenderlo (no es 
que ahora lo entienda, pero con el 
tiempo...). Lo único malo es que le 
asignan pocas páginas a esa sección, 
pues en el último número sólo fueron 
dos páginas; dehería tener una exten¬ 
sión de 5 páginas como mínimo. Otra 
cosa a destacar y elogiar es la poca 
publicidad que presenta su revista. 

En fin, les escribo para que me con¬ 
testen a las siguientes cuestiones: 

¿Me podrían indicar un libro de 
lenguaje máquina para novatos? La 
Ramlop indica el final de la memoria 
disponible para el Basic, pero... ¿Qué 
es? ¿Es acaso un número de dos by- 
tes? Ordenadores como los MSX y al 
Amstrad poseen un Z-80, sin embar¬ 
go, no se pueden confeccionar pro¬ 
gramas en C/M que sirvan tanto para 
el Spectruni como para los otros. ¿ Por 
qué? ¿Son distintas instrucciones? 
(por favor, expliquen esto lo más cla¬ 
ramente posible). 

José M. Baléalo 
Santiago (La Coruña) 

Nos alegramos de que guste nues¬ 
tra revista. Por esto sí vale la pena 
dejarse el gorro mes a mes para que 
llegue a vuestras manos. 

En cuanto a la serie de lenguaje 
máquina, como habrás visto, veni¬ 
mos dedicándole algo más que esas 
dos páginas del n.° 17. Esperamos 


que pronto puedas adentrarte en el 
desensamblador de esas rutinas que 
tanto te cuesta digerir. 

Respondemos a tus preguntas: 

Es difícil aconsejar un libro con¬ 
creto de código máquina «para no¬ 
vatos», casi todo el material publica¬ 
do en castellano adolece de un grave 
error: parte de un nivel demasiado 
elevado o lo hace de forma incom¬ 
pleta y mal estructurada. Por otra 
parte quien de una forma u otra ha 
alcanzado cierto nivel se encuentra 
con que ningún libro cubre total¬ 
mente los pequeños huecos que 
siempre quedan. La única alternati¬ 
va consiste en ir «picando» aquí y 
allá, en libros y revistas, y dedicarle 
muchas horas. Sólo podemos reco¬ 
mendarte que ojees todo lo que cai¬ 
ga en tus manos y elijas el que más 
te guste. 

Ramtop es una variable del siste¬ 
ma que indica ai operati vo cuál es la 
dirección de memoria más alta de 
las que pueden ser utilizadas para el 
almacenamiento del programa BA¬ 
SIC {+ variables, espacio de trabajo, 
etc,). Esta en realidad queda algo 
más abajo pues en esa dirección se 
encuentra normalmente la base de 
la pila de GOSUBs y el stack o pila 
de máquina, por lo que el sistema 
reserva siempre un cierto espacio 
para esto. Pero, ¿por qué poner lím i- 
le a la RAM? 

Aunque trabajemos en BASIC 
suele ocurrir que queramos reservar 
un espacio de memoria para dato o 
para alguna rutina de código. Si no 
pusiéramos límite, el programa BA¬ 
SIC podría crecer hasta «tragarse» 
nuestros datos como si de un sand¬ 
wich de jamón y queso se tratara. 
Podemos situar Ramtop donde que¬ 
ramos mediante el comando 
CLEAR, que debe ir seguido del 
nuevo valor que queramos asignar¬ 
le, Cuando se inicializa la máquina 
se coloca Ramtop 168 bytcs por de¬ 
bajo del límite máximo de la memo¬ 
ria, este espacio es utilizado para al¬ 
macenar los caracteres gráficos defi- 
nidos por el usuario. Efectivamente, 
Ramtop es un número que ocupa 
dos bvtes, puedes calcular su valor 
haciendo PR1NT PEEK 23730+ 
256*PEEK 23731. 

El hecho de que dos ordenadores 
usen el mismo microprocesador no 
es sinónimo de que puedan ser pro¬ 
gramados en lenguaje máquina de 
igual modo. Desde luego las ins¬ 


trucciones que utilicemos serán las 
mismas, pero la memoria estará dis¬ 
tribuida de distinta forma, las llama¬ 
das a la ROM dependerán del opera¬ 
tivo que utilice, y todos los dispositi¬ 
vos de entrada y salida estarán con¬ 
trolados por distintos puertos. A di¬ 
ferencia de los lenguajes de alto ni¬ 
vel. que con pocos cambios pueden 
ser utilizados en cualquier ordena¬ 
dor de la misma forma, el ensambla¬ 
dor exige al programador meterse 
hasta el cuello en la arquitectura de 
la máquina, «hurgando» en cada po¬ 
sición de memoria, en cada rutina 
de la ROM y en cada porl para lograr 
sus objetivos. 

La portada de! número 17 la hizo 
«uno de nosotros», casualmente 
quien escribe estas líneas. 


ERRATA DEL QL 

Por favor, prevengan a sus lecto¬ 
res de este fallo de la ROM del QL 
(por lo menos en la versión MGE): 

Sin nada en la memoria hace es¬ 
to: 

10 DEFine FuNclion hola$(a) 

20 END DEFine 

Ahora... hola$(l) 

¡Sorpresa! 

Arturo Ramdírez 
Majada honda (Madrid) 

En efecto nuestro QL se «cuel¬ 
ga» o hace cosas muy raras. Se 
trata de una pequeña errata de la 
correspondiente rutina de la 
ROM, que no comprueba ex¬ 
haustivamente las posibles «bu¬ 
rradas» que pueda hacer el pro¬ 
gramador. Este tipo de detalles, 
que es más frecuente de lo que 
debiera en una máquina como el 
QL, se deben a la presión a que se 
debieron ver sometidos los pro¬ 
gramadores-diseñadores por par¬ 
te de las altas esferas de Sinclair, 
ansiosas de sacar al mercado el 
nuevo producto. También in¬ 
fluye en ello la filosofía usada a la 
hora de crear el sistema operativo 
y el SUPERBASIC, a más versati¬ 
lidad de uso de un lenguaje en un 
mismo número de Ks siempre co¬ 
rresponde una menor seguridad 
ante los posibles fallos del progra¬ 
mador. 













ELCORCHO 



Vendo pot cambio de equipo Spec- 
trum 48 K, manuales, ele. Con te¬ 
clado profesional DK’Tronic, im¬ 
presora Seikosha G P-50S, TV 12 , 
¡nterface joystick. joystick Quicks- 
hot II, cuadro de interruptores y 
toma de red con amplificador de 
sonido para Spectrum integrado, 
peana de soporte de televisión, 
cassette Sanyo periodista, cassette 
Satsonic, 25 números de Todos- 
pectrum, 25 de ZX, 60 de Micro- 
hobby, etc. Todo en perfecto esta¬ 
do por 85.000 ptas. Llamar al TeL: 
(94) 458 01 17 de 22 a 23 h. Miguel. 


Quiero intercambiar instruc¬ 
ciones de programas para 
Spectrum. Si estáis interesa¬ 
dos, enviar lista a: Mario 
Sáenz de Santamaría. Río 
Ebro, 27, 7. u C. Miranda de 
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Siente la fuerza de la mítica RD. Las siglas con sabor a vic¬ 
toria en mil circuitos. Con la más avanzada tecnología Yamaha, 
Con el más completo equipamiento. Rápida, suave, segura, 
bella y silenciosa. Acepta el reto y dale gas; Serás el primero. 


RETO 


MOTUl 



YAMAHA VA POR DELANTE 
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¡Ven a conocer el apasionante mundo 
de los ordenadores Amstrad! 

Las más importantes empresas españolas y europeas 
de! sector se dan cita en Madrid para presentar y 
ofrecer sus más recientes productos para AMSTRAD. 

Programas de acción, juego, aventuras... Programas 
educativos, de utilidades, lenguajes... Programas de 
gestión y profesionales... Cientos de títulos inéditos... 

Periféricos, ampliaciones de memoria, emuladores, 


tabletas gráficas, digitalizadores, impresoras, lápices 
ópticos, redes de comunicación, discos duros, 
sintetizadores de voz, correo electrónico, tratamiento 
de imágenes... 

Las últimas novedades editoriales... Todas las 
revistas... 

Una ocasión única para conocer de “primera mano” los 
increíbles ordenadores personales AMSTRAD y todo 
cuanto para ellos se produce en el mundo. 



• Patrocinada y organizada por 

AMSTRAD ESPAÑA 

• Horario continuo de 10:00 a 19:30 

• Entrada: 200 pías. 

• Sorteo de Ordenadores AMSTRAD entre 
los visitantes. 

23-24 "25 MAYO 

Palacio de Exposiciones y Congresos de Madrid 

P.° Castellana, 99, 28046 MADRID 





























































































